VBA新人：IsEmpty函数报错

denny1993

各位前辈好
在“ If IsEmpty(Sheets(2).Cell("F", i)) = False Then”这句报错，对象不支持该属性或方法。

Sub test()
Dim i, j, k, x, y As Integer
For i = 3 To 2000 Step 1

' 判断Sheet2的F列i行是否为空
If IsEmpty(Sheets(2).Cell("F", i)) = False Then
     For j = 3 To 400 Step 1

     '判断Sheet1的C列j行是否为空
      If IsEmpty(Sheets(1).Cells(C, j)) = False Then

      '如果 S2Fi单元格的值  是否  等于S1Cj的值
        If Sheets(2).Cells(F, i).Value = Sheets(1).Cells(C, j).Value Then

        '如果是的话，找S1Cj以下 之间有多少空行
           x = Range(Sheets(1).Cells(C, j)).End(xlDown).Row
           y = x - j

           '然后在S2插入相应的行数
           Sheets("Sheet2").Select
           Rows(i & ":" & y + i - 1).Insert Shift:=xlDown
         End If
       End If
     Next
   End If
Next
End Sub

yorkchenshunan

CELL("F",I)的写法各种错，应该写作 cells(i,"F")
同理如Cells(C, j)也是各种错，应作 cells(j,"C")