EXCEL中请用VBA提取数字。

Question

如题所述

Answer 1

Sub ChooseNum()
For i = 0 to 7
    Select Case cells(999,24+i)
    Case 0,3,6,9
    Range("AG998")=cells(999,24+i) & Range("AG998")
    Case 1,4,7
    Range("AG999")=cells(999,24+i) & Range("AG999")
    Case 2,5,8
    Range("AG1000")=cells(999,24+i) & Range("AG1000")
    End Select
Next
For i = 0 to 7
    Select Case cells(1000,24+i)
    Case 0,3,6,9
    Range("AH998")=cells(1000,24+i) & Range("AH998")
    Case 1,4,7
    Range("AH999")=cells(1000,24+i) & Range("AH999")
    Case 2,5,8
    Range("AH1000")=cells(1000,24+i) & Range("AH1000")
    End Select
Next
End Sub

追问

我试了一下不行，出现这样的结果。3.93E+583.40E+737.78E+584.14E+582.85E+558.59E+40

我试了一下不行，出现这样的结果。3.93E+583.40E+737.78E+584.14E+582.85E+558.59E+40上个表格看下。