Sub TEST()
Sheet1.[B2:B65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[B65536].End(xlUp).Row
For M = 2 To X
Sheet1.Cells(Y + 1, 2) = Mid(Sheet1.Cells(M, 1), 1, 3)
Y = Y + 1
Next
End Sub作者: ABK 時間: 2018-12-4 17:14
Sub test()
Dim Arr, i%
Arr = Range([A1], Cells(Rows.Count, 1).End(3))
For i = 1 To UBound(Arr): Arr(i, 1) = Left(Arr(i, 1), 3): Next
[B1].Resize(UBound(Arr)) = Arr
End Sub作者: Scott090 時間: 2018-12-6 14:50
假設工作簿內每個工作表的格式都一樣
且工作表的第一列是欄位名稱
Sub test()
Dim Arr, sh
For Each sh In Sheets
With sh
Arr = Range(.[A2], .[A1].Cells(.Rows.Count, 1).End(3))
For i = 1 To UBound(Arr): Arr(i, 1) = Left(Arr(i, 1), 3): Next
.[B2].Resize(UBound(Arr)) = Arr
End With
Next
End Sub