求助：VBA代码复制填充所有Sheet相等的列数内容

RICKYK18 · 发表于 2024-3-15 16:08

求助各位老师，关于VBA代码

3190496160 · 发表于 2024-3-15 17:37

Sub 批量填充()
For Each sh In Sheets
If sh.Index > 1 Then
      r = sh.Cells(Rows.Count, 5).End(xlUp).Row
      ar = sh.Range("a1:e" & r)
      For i = 2 To UBound(ar)
         If ar(i, 1) = "" Then
            For j = 1 To 4
                  ar(i, j) = ar(i - 1, j)
            Next j
         End If
      Next i
      sh.Range("a1:e" & r) = ar
End If
Next sh
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-3-15 17:38

BOM2.rar (34.52 KB, 下载次数: 8)

RICKYK18 · 发表于 2024-3-18 16:06

非常感谢，一下子快多了

		自动登录	找回密码
密码			免费注册

[求助] 求助：VBA代码复制填充所有Sheet相等的列数内容