Excel 用于4个不同列的循环的vba Dim I尽可能长 对于I=2到最后一行 如果不是等空（单元格（I，“f”）和等空（单元格（I，“j”）），则 单元格（I，“j”）.Value=“注销” 如果结束 接下来我 尺寸I2与长度相同 对于I2=2到最后一行 如果为空（单元格（I2，“f”）），则 单元格（I2，“i”）。值=单元格（I2-1，“i”）。值 如果结束 下一个I2

如果f列为空

您可以这样做，使用单个循环和偏移量（-1，0）获得上面的单元格：

Dim i As Long，ws As Worksheet
设置ws=ActiveSheet
对于i=2到ws.Cells（ws.Rows.Count，“F”）.End（xlUp.Row）
带ws.Rows（i）
如果不是空的（.F列），则
如果为空（.Columns（“J”）），则.Columns（“J”）.Value=“注销”
其他的
.Columns（“I”）.Value=.Columns（“I”）.Offset（-1,0）.Value
.Columns（“L”）.Value=.Columns（“L”）.Offset（-1,0）.Value
等等
如果结束
以
下一个I2

单元格（I2，“i”）。Value=单元格（I2-1，“i”，“l”）。Value

-你想做什么？那是什么？