wif LiNoUz/Excel

엑셀 메크로로 100개의 시트에 똑같은 위치의 셀에 숫자 자동증가 채우기

크라소니 2014. 3. 12. 09:38

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=128154629&qb=7Iuc7Yq47Kad6rCA&enc=utf8&section=kin&rank=28&search_sort=0&spq=0

 

 

Sub Giveme_PO() '
Dim endR2 As Long, y As Long
endR2 = 100
For y = 2 To endR2
Sheets(y).Range("F3") = endR2 + y - 1
Next y
End Sub