|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 发哥76 于 2024-5-12 16:28 编辑
Private Sub CommandButton1_Click()
Dim i&, j%, arr, brr, c%
t = Timer
Application.ScreenUpdating = False
[b4:aw10000].ClearContents
[b4:aw10000].NumberFormatLocal = "@"
arr = Sheet1.Range("a1:j" & Sheet1.Cells(Rows.Count, 3).End(xlUp).Row)
ReDim brr(1 To UBound(arr) - 1, 1 To 48)
For i = 2 To UBound(arr)
For j = 4 To 10
c = arr(i, j)
If c = Empty Then
Exit For
Else
If j < 9 Then
brr(i - 1, c + 1) = Cells(3, c + 2)
Else
brr(i - 1, c + 36) = Cells(3, c + 37)
End If
End If
Next
brr(i - 1, 1) = arr(i, 3)
Next
[b4].Resize(UBound(brr), 48) = brr
Application.ScreenUpdating = True
MsgBox "填充完成 ! 耗时 : " & Format(Timer - t, "0.00" & " 秒"), , "提示"
End Sub |
评分
-
1
查看全部评分
-
|