Loop คืนค่าตำแหน่งแรก [VBA]
Posted: Sun Aug 05, 2018 11:40 am
รบกวนช่วยปรับ Code หน่อยครับ
อยากจะให้เมื่อ Loop ครบแล้วคืนค่ากับมาตำแหน่งแรกครับ C1 = aa > bb >cc > dd > ww > ตำแหน่งแรก aa
อยากจะให้เมื่อ Loop ครบแล้วคืนค่ากับมาตำแหน่งแรกครับ C1 = aa > bb >cc > dd > ww > ตำแหน่งแรก aa
Code: Select all
Sub loopthroug()
Dim inputRange As Range
Dim c As Range
Set inputRange = Sheet1.Range("A1:A5")
For Each c In inputRange
Range("C1") = c.Value
'ActiveSheet.Range("A1:I19").PrintOut
Next c
End Sub
คืนค่าไปที่เซลล์ไหนครับ 