°Ý°ÝÃD101.11.20.rar (9.78 KB)
:(
Sub TEST()
' Worksheets("Sheet1").Range("A1:A65530") = Worksheets("Sheet1").Range("B1:B65530") & Worksheets("Sheet1").Range("C1:C65530") '«¬ºA¤£²Å¦X
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
¦³¨S¦³¿ëªk¤£¶]°j°é¡A¤@ÓÓ²Õ¦X¦r¦ê¡A
¥i¦³¤èªkÃþ¦üRange ¤j½d³òªº²Õ¦X¦r¦ê¡AÁÂÁÂ~~~«ü±Ð
|