如何把区域内显示有#N/A错误的前面的内容提出来

lqs1234 · 发表于 2024-8-15 11:20

如图，把前面这个范围内每个显示错误#N/A的前面的内容提出到下面的位置？

2345截图20240815111626.png

Book2.zip (26.15 KB, 下载次数: 4)

ykcbf1100 · 发表于 2024-8-15 12:11

没看明白。最好有个效果图帮助理解。

longwin · 发表于 2024-8-15 12:54

Sub test()
Set Rng = [a1].CurrentRegion
h = 37
For Each cell In Rng
If IsError(cell.Value) Then
      If cell.Column Mod 5 = 0 Then
         Cells(h, 3).Resize(1, 3).Value = cell.Offset(0, -4).Resize(1, 3).Value
         h = h + 1
      End If
End If
Next
End Sub

longwin · 发表于 2024-8-15 12:55

lqs1234 · 发表于 2024-8-15 14:05

本帖最后由 lqs1234 于 2024-8-15 17:15 编辑

longwin 发表于 2024-8-15 12:54
Sub test()
Set Rng = [a1].CurrentRegion
h = 37

多谢，我试下，真的可以，还可以更改位置

saghj · 发表于 2024-8-15 15:23

lqs1234 · 发表于 2024-8-15 17:15

saghj 发表于 2024-8-15 15:23

多谢了，我想学VBA，可是总感觉学不会

saghj · 发表于 2024-8-16 08:20

lqs1234 发表于 2024-8-15 17:15
多谢了，我想学VBA，可是总感觉学不会

《深入浅出Excel VBA》我是看这本书入门的，之后便来论坛里做题，你可以参考下

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

[求助] 如何把区域内显示有#N/A错误的前面的内容提出来

评分