有一串代码不知道什么意思，想请大神解释下

送到

Dim rng As Range
Set rng = Rows(5000)
i = Range("A5000").End(3).Row
    For k = 2 To i
        h = Range("A" & k)
        If InStr(1, h, "#") <> 0 And Range("a" & k - 1) > 0 Then
            Set rng = Union(Range("A" & k).EntireRow, rng)
        End If
    Next
rng.Insert
rng.Insert
rng.Insert
rng.Insert
rng.Insert
End Sub
有没有大神能给我解释一下，什么意思

iwangyi

Dim rng As Range           ’声明 RNG 为单元格对象
Set rng = Rows(5000)    ‘设置 RNG为5000行区域
i = Range("A5000").End(3).Row     ’变量 I 为A列从5000行向上非空白单元格位置
    For k = 2 To i                         ‘从第二行到第I 行循环
        h = Range("A" & k)             ‘H为A列中带变量的单元格Range("A" & k)
        If InStr(1, h, "#") <> 0 And Range("a" & k - 1) > 0 Then
      ’假若单元格H中没有字符串“#“ 并且H的上一个单元格值大于0 那么
            Set rng = Union(Range("A" & k).EntireRow, rng) ‘将Range("A" & k)所在的整行与RNG 合并赋给RNG
        End If
    Next
rng.Insert   ‘插入空行
rng.Insert
rng.Insert
rng.Insert
rng.Insert
End Sub

不知道为什么

你说得是哪句不懂？
再说这个代码患了强迫症？需要那么多重复？

送到

不知道为什么 发表于 2018-8-9 23:21
你说得是哪句不懂？
再说这个代码患了强迫症？需要那么多重复？

h = Range("A" & k)
        If InStr(1, h, "#") <> 0 And Range("a" & k - 1) > 0 Then
            Set rng = Union(Range("A" & k).EntireRow, rng  这些话
没办法，不会写代码啊，

liulang0808

送到 发表于 2018-8-10 07:57
h = Range("A" & k)
        If InStr(1, h, "#")  0 And Range("a" & k - 1) > 0 Then
            S ...

代码要结合附件内容去看的

送到

liulang0808 发表于 2018-8-10 08:16
代码要结合附件内容去看的

大致内容如下：
2#       
板1       
0.0         20.0
75.9         20.0
97.2         -1.0
183.5         -1.8
575.4         -1.8
616.8         -1.0
664.1         -0.2
712.1         0.0
746.2         0.0
808.0         -2.4
817.9         -3.6
829.4         -1.4
846.8         -1.0
869.8         2.2
905.5         20.0
3#       
板1       
0.0         20.0
54.7         20.0
84.1         -0.6
145.7         -1.8
196.6         -2.6
246.6         -3.0
293.0         -3.2
340.3         -3.2
425.5         -2.6
506.5         -2.0
625.1         -2.0
700.3         -1.4
745.1         0.4
788.3         3.2
855.3         20.0

送到

liulang0808 发表于 2018-8-10 08:16
代码要结合附件内容去看的

大致内容如下：麻烦帮忙解释下

liulang0808

送到 发表于 2018-8-10 08:26
大致内容如下：麻烦帮忙解释下

楼主有附件，有代码
那么代码完成的工作是不是楼主需求的？

liulang0808

送到 发表于 2018-8-10 08:26
大致内容如下：麻烦帮忙解释下

楼主有附件，有代码
那么代码完成的工作是不是楼主需求的？

送到

iwangyi 发表于 2018-8-10 09:05
Dim rng As Range           ’声明 RNG 为单元格对象
Set rng = Rows(5000)    ‘设置 RNG为5000行区域
...

谢谢你的帮助，使我能够很好的理解代码的意思，在的帮助下完成了任务