心の日記

這幾天又被搞瘋了

主要要說  利用迴圈將多格儲存格內容合併至一個儲存格 並用換行分隔各個儲存格資料

表1
-------------
原子筆  
鉛筆
橡皮擦
-------------

表2
--------------
原子筆
--------------
鉛筆
--------------
橡皮擦
--------------

表1和表2 虛線是看不見的
差別在
1個儲存格有"3行"
各自3個儲存格
表格的線都取消

這樣有差嗎?  為什麼要堅持一個儲存格3行
不管是用WORD還是EXCEL  作業上沒有差吧
誰能告訴我差異在哪?

因為這樣我的VBA又要改格式了
原本考慮用函數concatenate
但是我不是只有簡單幾格(我總共有30-40格˙要合併)
而且我還要換行顯示

(題外話
EXCEL合併儲存格 只會保留第一個儲存格資料
WORD合併  才會保留全部資料
EXCLE 有強制換行(ALT+ENTER))

又是燒腦的另一個開端

簡單來說
sheets(2).cells(1,2)=sheets(3).cells(1,2) & sheets(3).cells(2,2) & sheets(3).cells(3,2)......sheets(3).cells(40,2)
但是我有破百個要這樣做(我有好幾格要合併成1格)
這打到眼睛都會花花的

直接用迴圈啦

--------------------------------------------------------

sub 資料多格合併1格()

for i = 1 to 40
z=sheets(3).(i,2)
     if sheets(3).cells(i,2)<>"" Then
         z= z & vbLf & sheets(3).(i+1,2)   '  vbLf 是換行
         Else : exit for                              '如果是空白  則離開for(迴圈)
      end if
next i
sheets(2).cells(1,2)=z                         '將結果顯示在sheets(2)的B2上

end sub
----------------------------------------------------------

但是EXCEL有限定列高....囧
我只好又拉去WORD顯示

再一次題外話:
active.document--->只要是active開頭的，最好是你已經開啟的東西，若是由VBA開啟，"建議"不要用這個
直接指定documents("檔案名稱")
因為利用active要等他開啟(有時候會累格) 導致系統無法抓取
所以建議還是直接指定檔案名稱是最好的 (我後來發現 他有時候也是無法開啟  可能要寫延遲個毫秒)
並注意active.document是沒有s  (使用中只會有一個)
但是指定檔案的時候documents   (因為怕多數檔案 所以記得要打s 不然無法使用)

參考資料

1.https://dotblogs.com.tw/wesley0917/2010/12/16/20154