|
楼主 |
发表于 2020-3-6 21:45
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 按钮1_Click()
Application.ScreenUpdating = False
arr = Sheets("明细").[a1].CurrentRegion
On Error Resume Next
For j = 2 To UBound(arr)
If arr(j, 3) = "是" Then
d = Day(arr(j, 2))
Sheets(arr(j, 1)).Cells(d + 10, 2) = arr(j, 4)
Sheets(arr(j, 1)).Cells(d + 10, 3) = arr(j, 5)
Sheets(arr(j, 1)).Cells(d + 10, 7) = arr(j, 6)
Sheets(arr(j, 1)).Cells(d + 10, 9) = arr(j, 7)
Sheets(arr(j, 1)).Cells(d + 10, 10) = arr(j, 8)
Sheets(arr(j, 1)).Cells(d + 10, 11) = arr(j, 9)
Sheets(arr(j, 1)).Cells(d + 10, 12) = arr(j, 10)
End If
Next j
Application.ScreenUpdating = True
End Sub
改好了
|
|