- 帖子
- 523
- 主題
- 56
- 精華
- 0
- 積分
- 601
- 點名
- 81
- 作業系統
- win 10
- 軟體版本
- []
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-3-19
- 最後登錄
- 2025-4-6
           
|
回復 7# n7822123
假設工作簿內每個工作表的格式都一樣
且工作表的第一列是欄位名稱
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
這樣也許可以很快把40幾個工作表做完 |
|
發表於 2018-12-5 05:45
| 
