Skip to content

Instantly share code, notes, and snippets.

@kshimi

kshimi/Excel全シート行数カウント

Last active August 3, 2016 05:28
Show Gist options
  • Save kshimi/624fe6b0fc1aa8854ee3 to your computer and use it in GitHub Desktop.
Save kshimi/624fe6b0fc1aa8854ee3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Excel全シート行数カウント
Sub 全シート行数カウント()
Dim sheetname As String
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
sheetname = ThisWorkbook.Sheets(i).Name
ActiveCell = "=CountA('" & sheetname & "'!G6:G65535)"
ActiveCell.Offset(1, 0).Activate
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment