- 帖子
- 75
- 主題
- 8
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2015-4-19
- 最後登錄
- 2025-5-7
|
回復 1# newvbaer
Sub looptest()
Dim counter As Long
Sheets("alex").Select
ROW1 = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(2, 1), Cells(ROW1, 4)).ClearContents
Sheets("¤u§@ªí1").Select
ROW2 = Cells(Rows.Count, "A").End(xlUp).Row
k = 2
For counter = 2 To ROW2
If Cells(counter, 4) = 1 Then
Range(Cells(counter, 1), Cells(counter, 4)).Copy Sheets("alex").Cells(k, 1)
k = k + 1
End If
Next
Sheets("¤u§@ªí1").Select
End Sub
 VBA迴圈剪貼排序.zip (61.21 KB)
|
|
發表於 2019-5-19 16:36
| 