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 我朋友卻可以執行…真是怪也！

贊助商連結

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

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

有！兩個 excel 檔都有開啟。