 問問題101.11.20.rar (9.78 KB)
:(
Sub TEST()
' Worksheets("Sheet1").Range("A1:A65530") = Worksheets("Sheet1").Range("B1:B65530") & Worksheets("Sheet1").Range("C1:C65530") '型態不符合
all_number = ThisWorkbook.Sheets("Sheet1").Range("B65536").End(xlUp).Row
For I = 2 To all_number
Cells(I, 1) = Trim(Cells(I, 2)) & Trim(Cells(I, 3))
Next I
End Sub
有沒有辨法不跑迴圈，一個個組合字串，
可有方法類似Range 大範圍的組合字串，謝謝~~~指教
|
發表於 2012-11-20 22:23
| 
