Question

如何提取VBA中单元格中的字符串中的某个数字的值

如何提取单元格中某个数字的值。
例如：某个单元格中的值是：VVVVV[3],我要提取这个值中的3，（我要提取的都是中括号中的数字）并且要在所在单元格的下方添加2个新行。谢谢！
Sub temp1()
For i = [a65536].End(xlUp).Row To 1 Step -1
s = 0
e = 0
s = CLng(InStr(1, Cells(i, 1).Value, "[")) + 1
e = CLng(InStr(1, Cells(i, 1).Value, "]"))
If s > 0 And e > s Then
n = CLng(Mid(Cells(i, 1).Value, s, e - s))
Rows(i + 1 & ":" & i + n).Insert Shift:=xlShiftUp
End If
Next
End Sub

这个程序是对应我所需要的。感谢Jackychen!!

Answer 1

如果你的数据在A列，代码如下，有问题HI我：

Sub temp1()
For i = [a65536].End(xlUp).Row To 1 Step -1
s = 0
e = 0
s = CLng(InStr(1, Cells(i, 1).Value, "[")) + 1
e = CLng(InStr(1, Cells(i, 1).Value, "]"))
If s > 1 And e > s Then
n = CLng(Mid(Cells(i, 1).Value, s, e - s))
Rows(i + 1 & ":" & i + n).Insert Shift:=xlShiftUp
End If
Next
End Sub