使用VBA在表中插入特定值以上的行
我有一个类似于下面的表格：
Open Date MaturityDate ZeroRate 5-May-15 5-May-15 0.006999933 5-May-15 6-May-15 0.0069999329 5-May-15 5-Jun-15 1 5-May-15 6-Jul-15 0.008993128 5-May-15 5-Aug-15 0.006744264 5-May-15 5-Nov-15 0.006912941 5-May-15 5-May-16 0.007104633 5-May-15 5-May-17 0.006910929 5-May-15 6-Nov-17 0.007017292 5-May-15 7-May-18 0.00712202 5-May-15 5-Nov-18 1 5-May-15 6-May-19 0.008551509 5-May-15 5-Nov-19 0.009734602 5-May-15 5-May-20 0.010916848 5-May-15 5-Nov-20 0.011779622 5-May-15 5-May-21 0.012632521 5-May-15 5-Nov-21 1 5-May-15 5-May-22 0.014366506 5-May-15 7-Nov-22 0.014935518 5-May-15 5-May-23 0.0154865 我试图编写一个VBA脚本来插入一行到第三列中的值“1”的每个实例上面的工作表。 这是我迄今为止写的：
Sub RowInserter() Dim d As Integer d = Range("C:C").End(xlDown).Row Dim c As Range For i = d To 2 Step -1 If Cells(i, 1).Value = "1" Then Rows(Cells(i, 1).Row).Insert shift:=xlDown End If Next End Sub
但似乎没有任何效果。 我究竟做错了什么？
你编码正确，但只有一个错误。 你应该input3而不是1 ：
If Cells(i, 1).Value = "1" Then
改变3 ，如：
If Cells(i, 3).Value = "1" Then