vba直接在單元格填充公式如何將所有字放在一個單元格里面？

2023-07-25

4323

如何將所有字放在一個單元格里面？一個單元格是放不下這樣的話內容的。單元格里字節數有限制。如果沒有必須得，比較快的方法是在用vba不然的話，公式，也有，不過麻煩。.例如，你要把A1:A1000不合并在一

如何將所有字放在一個單元格里面？

一個單元格是放不下這樣的話內容的。單元格里字節數有限制。如果沒有必須得，比較快的方法是在用vba不然的話，公式，也有，不過麻煩。.例如，你要把A1:A1000不合并在一起那么b2輸入b1a1下拉圖案填充到B1001b1001里的那是你要的。

簡單的方法我們可以打開一個工作樣表作為例子。

在用altf11組合快捷鍵直接進入vbe編輯器，插到一個新的模塊，并在模塊中再輸入以下代碼：

Option ExplicitSub Random()

DimmyRangeasRange

DimrngandRange

設置里對單元格區域的語句

SetmyRangeWorksheets(Sheet1).Range(A1:D5)

SetrngWorksheets(Sheet1).Range(e1:i5)

對Range對象并且操作

myRangerand()

True

EndSub

這里我們系統設置了2個區域變量，真接一般聲明它們是range類型，這樣才能對己區域單元格并且引用。如果不是去掉后類型聲明，這樣過程很快就會要對象。這點大家要盡量。

DimmyRange

Dimrng會報錯。

我們先來設置200元以內區域單元格的范圍，這里myRange是在sheet1工作表中的a1到d5的正方形嘗試單元格范圍。而rng是同時sheet1工作表中的e1到i5的矩形發動單元格。

畢竟聲明了range類型，所以才我們這里然后也可以對myRange變量接受變量定義，可以使用號再賦值即可解決。由于我們定義變量的是一個excel程序函數，因此要用雙引號括過來。

隨后重點是，如果沒有要對這個區域內的單元格值參與直接引用，我們要明白寫清楚是腳注的兩個區域的值value。寫法也要這樣的

之后我們是可以我得到正確的的結果，在這兩個區域中myRange是隨機函數公式，而rng是固定不動的當次運行隨機函數后的值。這里兩個值不對應一致是畢竟在剪切粘貼操作后rand（）函數扣減了一次的結果。

8先寫完這里了，啊,謝謝大家的在線觀看。

祝大家生活旅途快樂。

小編另外許多其他的經驗可以直接看，要是不能解決了問題這個可以聯系小編通過咨詢。

看不清圖片的是可以點擊放大縮小一看哦。