- 帖子
- 234
- 主題
- 19
- 精華
- 0
- 積分
- 276
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-1-7
- 最後登錄
- 2021-10-7
|
回復 1# rouber590324
試試看
Sub ex()
Sheets(2).[A2:A65536].ClearContents
Y = Sheets(2).[A65536].End(xlUp).Row
For R = 4 To Worksheets.Count
X = Sheets(R).[B65536].End(xlUp).Row
For M = 2 To X
If Not (Sheets(R).Cells(M, 2) = "" Or Sheets(R).Cells(M, 2) = " ") Then
Sheets(2).Cells(Y + 1, 1) = Sheets(R).Cells(M, 2)
Y = Y + 1
End If
Next
Next
End Sub |
|
發表於 2020-10-19 14:06
| 