�@オートフィルタで全ての表示

If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If


�Aオートフィルタの解除

If ActiveSheet.AutoFilterMode = True Then
Selection.AutoFilter
End If


�BA列のデータの最終行番号を取得

ENDROW = Range("A65536").End(xlUp).Row


�C一行目のデータの最終列番号を取得

ENDCOL = Range("IV1").End(xlToLeft).Column


�D列番号を列のアルファベット文字に変換

If ENDCOL > 26 Then
ENDCOLA = Chr(64 + Int((ENDCOL - 1) / 26)) & Chr(64 + (ENDCOL - Int((ENDCOL - 1) / 26) * 26))
Else
ENDCOLA = Chr(64 + ENDCOL)
End If


�Eファイルを開くメニュー

ChDrive "(ドライブ名)"
ChDir "(フォルダ名(フルパス))"
FLNM = Application.GetOpenFilename("Microsoft Excel ﾌｧｲﾙ (*.x*),*.x*", , "(表題)")
If FLNM = False Then
Exit Sub
End If
Workbooks.Open Filename:=FLNM


�FWebからのデータ取り込み(タブ区切りデータ)

With ActiveSheet.QueryTables.Add(Connection:= "TEXT;http://(URL)", Destination:=Range("A1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1)　　←各列の設定(1=数字、2=文字)
.Refresh BackgroundQuery:=False
End With