<em>vba</em>编程中，怎么在for循环中提取单元格的行号-获取excel单元格值 vb

这个肯定用正知则了。点道击图片看版动画效权果。

Sub text()
   Dim reg As Object, i%, arr 
   Set reg = CreateObject("vbscript.regexp")
   arr = Range("a1:a10")
   With reg
       .Global = True
       .Pattern = "[^0-9]"
       For Each sh In arr
           i = i + 1
           arr(i, 1) = .Replace(sh, "")
       Next
   End With
   [b1].Resize(UBound(arr), 1) = arr
   Set reg = Nothing
End Sub

楼上回答很好，但是不知道你抄是否是想知道如何获得A1、A2......等，可以这样处理：
1、定义两个变量，分别为字袭符型和整数型:
Dim s As String
Dim i As Integer
2、在循环中引zhidao用这些变量进行运算即可
for i=1 to 10
s="A" & i
range(s).select
……
next i

 Sub xx()
    For i = 5 To 32
    x = 0
    j = 28
    Do While Cells(j, i).Interior.Color = vbYellow
        x = x + 1
        j = j + 1
    Loop
    If x <> 0 Then
        k = 18
        For j = 5 To 14
            If Cells(j, i).Interior.Color = vbRed Then
                Cells(k, i) = Cells(j, x)
                k = k + 1
            End If
        Next
    End If
    Next
End Sub

范例1 单元格的引用方法1-1
使用Range属性引用单元格区域
Sub MyRng()
Range("A1:B4, D5:E8").Select
Range("A1").Formula = "=Rand()" ‘单元格中输入“=Rand()”
Range("A1:B4 B2:C6").Value = 10
Range("A1",
"B4").Font.Italic = True
End Sub
1-2

使用Cells属性引用单元格区域
Sub MyCell()
Dim i As Byte
For i = 1 To 10
Sheets("Sheet1").Cells(i,
1).Value = I’单元格中输入“i”
Next
End Sub
1-3

使用快捷记号实现快速输入
Sub FastMark()
[A1] = "Excel 2007" ’A1为特定单元格
End Sub
1-4

使用Offset属性返回单元格区域，
Sub RngOffset()
Sheets("Sheet1").Range("A1:B2").Offset(2,
2).Select ’用offste相对位置来e68a84e799bee5baa6e79fa5e98193364确定单元格
End Sub

1-5 使用Resize属性返回调整后的单元格区域
Sub RngResize()

Sheets("Sheet1").Range("A1"). ’用offste相对位置来确定单元格).Select ’用range 来确定左上角为起始位置，’用resize相来确定单元格大小
End Sub

范例2 选定单元格区域的方法2-1
使用Select方法
Sub RngSelect()
Sheets("Sheet2").Activate ‘ 激活工作表

Sheets("Sheet2").Range("A1:B10").Select ’选择单元格
End Sub
2-2

使用Activate方法
Sub RngActivate()
Sheets("Sheet2").Activate

Sheets("Sheet2").Range("A1:B10").Activate
End Sub
2-3

使用Goto方法
Sub RngGoto()
Application.Goto
Reference:=Sheets("Sheet2").Range("A1：B10"), Scroll:=True
End Sub