圖中的代碼只能完成第2行到第33行的計算，現在我想要完成整列所有有數字的計算，請問應該怎么改？
uj5u.com熱心網友回復：
如果所有列都有內容，可用如下格式：Dim r as Integer
r=2
Do while Worksheet(1).Range("A" & r).Text<>"" and Worksheet(2).Range("A" & r).Text<>""
Do while IsNumeric(Worksheet(1).Range("A" & r).Text) and IsNumeric(Worksheet(2).Range("A" & r).Text)
內容計算
loop
r=r+1
loop
獲取更多VBA知識，請關注 吉祥編程 公眾號
uj5u.com熱心網友回復：
這個我試了一下，一運行就好卡死excel
uj5u.com熱心網友回復：
試試這樣行不行(還沒測驗過):
Sub 運算并畫圖()
Dim r As Integer, x As String, y As String, op As String, z As Single
For r = 2 To 9999
x = Worksheets(1).Range("A" & r)
y = Worksheets(2).Range("A" & r)
op = Worksheets(3).Range("A" & r)
If x <> "" And y <> "" And op <> "" Then
Select Case Worksheets(3).Range("A" & r)
Case "+"
z = CInt(x) + CInt(y)
Case "-"
z = CInt(x) - CInt(y)
Case "*"
z = CInt(x) * CInt(y)
Case "/"
z = CInt(x) / CInt(y)
End Select
Worksheets(4).Range("A" & r) = z
End If
DoEvents
Next
End Sub
uj5u.com熱心網友回復：
謝謝大佬指教！不過還有一個小問題需要麻煩一下，計算不是真的到A9999，只是一個虛指，因為不確定會有多少個資料。
uj5u.com熱心網友回復：
可以用UsedRange來得到已使用的資料范圍;轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/13511.html
標籤：VBA
上一篇：VB2010學習版