EXCEL2003 VBA 錯誤「陣列索引超出範圍」

[lenbo]

Sub compare()
  For i = 2 To 2039 Step 1
    For j = 2 To 81 Step 1
      If Workbooks("問卷").Worksheets("Sheet1").Cells(i, 6) = Workbooks("縣市代號").Worksheets("Sheet1").Cells(j, 6) Then
        For k = 1 To 19
          Workbooks("問卷").Worksheets("Sheet1").Cells(i, k + 215).Value = Workbooks("縣市代號").Worksheets("Sheet1").Cells(j, k + 7).Value
        Next k
        j = 100
      End If
    Next j
  Next i
End Sub

主要是比對兩個不同的 excel 檔案儲存格的值，
可是在執行巨集時，總會跳出錯誤視窗「陣列索引超出範圍」
但是一樣是 Excel2003 我朋友卻可以執行…真是怪也！

[birdbird]

我猜你是Workbooks("縣市代號").沒開啟吧？

[lenbo]

我猜你是Workbooks("縣市代號").沒開啟吧？

有！兩個 excel 檔都有開啟。