分享一个EXCEL的VBA

lqs1234 · 发表于 2024-8-20 08:34:21

爱科技、爱创意、爱折腾、爱极致，我们都是技术控

您需要登录才可以下载或查看，没有账号？立即注册

x

本帖最后由 lqs1234 于 2024-8-20 08:35 编辑

有看懂的没？这样的VBA真是办公利器，可以减少不少工作程度，提高效率
Sub test()
Set Rng = [A1].CurrentRegion '选择A1所在的的连续数据区域的范围
h = 40
For Each cell In Rng '对于区域中的每一个单元格
If IsError(cell.Value) Then
      If cell.Column Mod 5 = 0 Then
         Cells(h, 4).Resize(1, 3).Value = cell.Offset(0, -4).Resize(1, 3).Value
         h = h + 1
      End If
End If
Next
End Sub