[已解决]請問老師 如何運用循環帶入mid的位址

e2solo

請問老師
例如要抽出某範圍儲存格中的第三個字
Sub test()
Dim  j As Integer
For j = 3 To 10
Range("i" & j) = Evaluate("=MID("i"& j,3,3)")
Next
End Sub

MID("i"& j   位址一直報錯
請問該如何表示
謝謝老師

最佳答案

月排行榜 / 总排行榜

Zipall

2011-10-18 12:13

vb自己就有mid函数,可以不必evaluate.

Range("i" & j) = MID(range("i"& j),3,1)
或
cells(j,9)=mid(cells(j,9),3,1)

跳转到最佳答案楼层

windimi007

回复 e2solo 的帖子

是这样吗？{:4212:}

1. Sub test()
   
2.     Dim j As Integer
   
3.     For j = 3 To 10
   
4.         Range("i" & j) = Evaluate("=MID( i" & j & ",3,3)")
   
5.     Next
   
6. End Sub

复制代码

e2solo

老師
使用上面的方式雖無報錯，但儲存格顯示 #VALUE!

Sub test()
Dim j, a As Integer
a = Evaluate("=counta(i:i)")
For j = 3 To a
Range("i" & j) = Evaluate("=MID(i " & j & ",3,3)") & ""/"" & MID(i " & j & ",7,2) & ""/"" & MID(i " & j & ",10,2)")
Next
End Sub
還是報錯

再煩請老師解答

e2solo

回复 windimi007 的帖子

老師 使用上面的方式雖無報錯，但儲存格顯示 #VALUE! Sub test() Dim j, a As Integer a = Evaluate("=counta(i:i)") For j = 3 To a Range("i" & j) = Evaluate("=MID(i " & j & ",3,3)") & ""/"" & MID(i " & j & ",7,2) & ""/"" & MID(i " & j & ",10,2)") Next End Sub 還是報錯 再煩請老師解答

Zipall

vb自己就有mid函数,可以不必evaluate.

Range("i" & j) = MID(range("i"& j),3,1)
或
cells(j,9)=mid(cells(j,9),3,1)

e2solo

回复 Zipall 的帖子

謝謝老師
可以了