[已解决]查找不同并插入空行

xuflower

vba代码如何在一列中查找到不同的数据后，自动插入一行，代码要怎么写，请大家指点~~~~

最佳答案

月排行榜 / 总排行榜

qjsu

2013-6-6 18:13

xuflower 发表于 2013-6-6 17:42
代码可以说明一下嘛，我初学写上的话，明白一点

Sub Macro1()
Dim i As Integer  "定义一个变量"
    For i = 1 To 10000   "假设变量由1到10000"
If Not Range("a" & i) = Range("a" & i + 1) Then  "假设此时i=1，如果A1不等于A2"
Rows(i + 1 & ":" & i + 1).Select   "假设i=1，选择第2行"
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove "假设i=1，在第2行上方插入1行"
    i = i + 1  "假设i=1的时候 A1不等A2，插入一行以后这里原来的第2行就变成了第3行，所以需要从第3行开始继续执行"
End If  "IF语句结束"
Next  "执行下一个i"
    Range("A1").Select   "这个可以不要，不影响程序执行，i从1至10000执行完毕之后选择A1单元格"
End Sub   "程序结束"

跳转到最佳答案楼层

1032446692

附件！！

qjsu

Sub Macro1()
'
' Macro1 Macro
'
'
    Dim i As Integer
    For i = 1 To 10000
    If Not Range("a" & i) = Range("a" & i + 1) Then
    Rows(i + 1 & ":" & i + 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    i = i + 1
    End If
    Next
    Range("A1").Select
End Sub

xuflower

qjsu 发表于 2013-6-6 17:20
Sub Macro1()
'
' Macro1 Macro

代码可以说明一下嘛，我初学写上的话，明白一点

qjsu

xuflower 发表于 2013-6-6 17:42
代码可以说明一下嘛，我初学写上的话，明白一点

Sub Macro1()
Dim i As Integer  "定义一个变量"
    For i = 1 To 10000   "假设变量由1到10000"
If Not Range("a" & i) = Range("a" & i + 1) Then  "假设此时i=1，如果A1不等于A2"
Rows(i + 1 & ":" & i + 1).Select   "假设i=1，选择第2行"
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove "假设i=1，在第2行上方插入1行"
    i = i + 1  "假设i=1的时候 A1不等A2，插入一行以后这里原来的第2行就变成了第3行，所以需要从第3行开始继续执行"
End If  "IF语句结束"
Next  "执行下一个i"
    Range("A1").Select   "这个可以不要，不影响程序执行，i从1至10000执行完毕之后选择A1单元格"
End Sub   "程序结束"

xuflower

qjsu 发表于 2013-6-6 18:13
Sub Macro1()
Dim i As Integer  "定义一个变量"
    For i = 1 To 10000   "假设变量由1到10000"

'谢谢，代码和说明都很完美，我也学习了，多谢帮助