如何根据表顶部"列"中的条件插入多行

Question

我有一个宏，它已经插入了一个表(A3:L3(，并过滤了C列的值：从大到小。

我想插入一个If/Then函数。如果列C中的值<=到1，在该单元格下方插入3行。

但是，我只需要从顶部开始插入第一次出现的公式。为了将值>=1(3行(<1

(表列将始终为A3:L3，但结束数据未知(

示例：32.610.27.54.73.121.61.1…->在此处插入3行0.80.7

我目前有：

Dim wb As Workbook
Dim ws As Worksheet
Dim LastRow As Long
Dim i As Long
Set ws = Worksheets("Report1")
ws.Activate
LastRow = Range("C" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If ws.Cells(i, 3).Value <= 1 Then
.Offset(1, 0).Resize(3, 0).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Exit For
End If
Next i

Answer 1

您只是缺少操作语句上的范围限定符。

For i = 2 To LastRow
If ws.Cells(i, 3).Value <= 1 Then
ws.Cells(i, 4).Offset(1).Resize(3).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Exit For
End If
Next i