여기에 파일을 끌어 놓거나 파일 첨부 버튼을 클릭하세요.
파일 크기 제한 : 0MB (허용 확장자 : *.*)
파일 업로드 중... (0%)
Korea NO.1 VISION 2020 / Designed by HJS_Sketch
sketchbook5, 스케치북5
이 사이트를 나눔글꼴로 보기 위해서는나눔글꼴을 설치해야 합니다.
Dim sCnt As Integer
Dim i As Integer
vRng = 2
sCnt = ActiveWorkbook.Worksheets.Count
For i = 2 To sCnt
If Sheets(i).Visible Then
Sheets("main").Range("a" & vRng) = Sheets(i).Name
Sheets("main").Range("b" & vRng) = Sheets(i).Range("b1")
vRng = vRng + 1
End If
Next
End Sub