Sub 給()
Dim i As Integer
Dim j As Integer
For i = 0 To 2622
For j = 0 To 1165
If (j + 1) Mod 3 = 0 Then
i = i + 1
ElseIf (j + 1) Mod 2 = 0 Then
Cells(i, j).Value = j * 50
ElseIf (j + 1) Mod 2 <> 0 And (j + 1) Mod 3 <> 0 Then
Cells(i, j).Value = i * 50
End If
Next j
Next i
End Sub
為什么會出現運行錯誤啊
uj5u.com熱心網友回復：
Cells物件在哪？
uj5u.com熱心網友回復：
Cells物件應該是個Excel表格吧？uj5u.com熱心網友回復：
因為你的Excel版本低了點…………運行這段代碼，需要 Excel 2007或更高的版本。
Excel 2003或者之前的版本，最多支持256列資料，在 j 的值大于256后，Cells(i, j).Value就會出錯。
另外，建議你把變數 i、j 都使用Long型別。
否則你那兩處 i*50、j*50 都會引起“溢位”例外。
（也可以把 50 改為：50& ）
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/57420.html
標籤：VBA