運行時間不匹配錯誤

Question

我收到以下代碼的類型不匹配運行時錯誤。
有人可以告訴我我需要做些什么嗎？

Sub Macro2()

    Dim MyRange As Range
    Set MyRange = Range("L1:L15")
    Do While Not IsEmpty(MyRange)
      If MyRange > 1 Then
         Range(MyRange.Offset(1, 0), MyRange.Offset(MyRange.Value - 1, _
            0)).EntireColumn.Insert
         Range(MyRange, MyRange.Offset(MyRange.Value - 1, 1)).EntireColumn.FillDown
      End If
      Set MyRange = MyRange.Offset(MyRange.Value, 0)
      Loop
End Sub

Answer 1

就在這條線。

If MyRange > 1 Then

您正在嘗試將Range對象與Numeric 1進行比較。

您對那條線的意圖是什么？ 如果您想知道該Range每個單元格中的值，則必須編寫一個循環。

Answer 2

假設您正在查看單元格值，則遍歷范圍內的每個單元格可能會更容易：

Sub Macro2()

    Dim MyRange As Range
    Dim c as Cell
    Set MyRange = Range("L1:L15")
    For each c in MyRange.Cells
      If c.Value > 1 Then
         Range(c.Row, c.Column + 1).EntireColumn.Insert
         Range(c.Row, c.Column + 1).EntireColumn.FillDown
      End If
    Next c
End Sub

我不清楚您要在中間做什么，因此可能需要進行一些調整。