５チャンネルはくだらない質問をすると、
張り倒されてぼこぼこにされて簀巻きにされて東京湾に沈められると聞いたので

がくがくしながら質問しています。
ちょぅとだけ質問していいですか？


Sub Main()
　Dim RowCnt As Long
　
　With ThisWorkbook.Sheets(1)
　　RowCnt = 2
　　Do
　　　If .Cells(RowCnt, 1).Value = "" Then Exit Do
　　　.Cells(RowCnt, 2).NumberFormatLocal = "@"
　　　.Cells(RowCnt, 2).Value = GetISBN(.Cells(RowCnt, 1).Value)
　　　RowCnt = RowCnt + 1
　　Loop
　End With

についておしえてください。