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
'wif LiNoUz > Excel' 카테고리의 다른 글
| 복수의 시트 원하는 이름으로 한 번에 삽입하기 1 (0) | 2014.03.13 |
|---|---|
| 모든 시트 수식에서 값으로 변환VBA (1) | 2014.03.13 |
| 첫번째 시트는 제외하고 시트 이름 자동으로 바꾸는 vba (0) | 2014.03.12 |
| 엑셀 각행마다 빈칸삽입 (지식in) (0) | 2013.01.21 |
| 엑셀 개기초 (0) | 2012.10.25 |