Skip to content

Instantly share code, notes, and snippets.

@siguremon
Created December 11, 2013 02:09
Show Gist options
  • Save siguremon/7904067 to your computer and use it in GitHub Desktop.
Save siguremon/7904067 to your computer and use it in GitHub Desktop.
データがある範囲を抽出する ref: http://qiita.com/siguremon/items/4fbdb2585b74fa9e8701
Dim lastRow As Long
Dim varData As Variant
lastRow = Range("A" & Rows.Count).End(xlUp).Row
varData = Range("A1:A" & lastRow).value
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment