我正在尋找解決我的問題的方法。任務是在從 D1 列到 D 列最后寫入的單元格的范圍內比較連續的兩行。如果連續單元格的值等于前一個單元格的值，即 D2=D1，則宏可以下一步，否則它將在兩個值之間插入一個新行。由于我對 vba 相當陌生，并且主要使用基于在線研究的資訊，所以直到現在我都找不到合適的解決方案。您可以在下面看到嘗試過的部分內容。
Sub Macro()
'check rows
Dim a As Long
Dim b As Long, c As Long
a = Cells(Rows.Count, "D").End(xlUp).Row
For b = a To 2 Step -1
c = b - 1
If Cells(b, 4).Value = Cells(c, 4).Value Then
If Cells(b, 4).Value <> Cells(c, 4).Value Then
Rows("c").Select
Selection.Insert Shift:=xlDown
End If
End If
Next b
End Sub
uj5u.com熱心網友回復：
Sub InsertRows()
Dim cl As Range
With ActiveSheet
Set cl = .Cells(.Rows.Count, "D").End(xlUp)
Do Until cl.Row < 2
Set cl = cl.Offset(-1)
If cl.Value <> cl.Offset(1).Value Then cl.Offset(1).EntireRow.Insert
Loop
End With
End Sub
邊注。您可以從閱讀
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/503709.html
上一篇：搜索值并格式化整行