IMEdictionary_VBA.md

Name	Tags
うえ	Range(Selection, Selection.End(xlUp)).Select
うえ	Selection.End(xlUp).Select
えｒ	On Error GoTo
かいぎょう	nl = Chr(13) & Chr(10)
かうんと	Selection.Cells.Count
ぎょう	Selection.Areas(1).Rows.Count
ぎょう	Cells(Rows.Count, 1).End(xlUp).Row
せｔぢｃ	= CreateObject("Scripting.Dictionary")
さいご	Cells(Rows.Count, 1).End(xlUp).Row
さいご	Cells(1, Columns.Count).End(xlToLeft).Column
さくじょ	Selection.ClearContents
した	Range(Selection, Selection.End(xlDown)).Select
した	Selection.End(xlDown).Select
じ	↑
ｚｊ	←
ｚｋ	↓
ｚｌ	→
ひだり	Range(Selection, Selection.End(xlToLeft)).Select
ひだり	Selection.End(xlToLeft).Select
みぎ	Range(Selection, Selection.End(xlToRight)).Select
みぎ	Selection.End(xlToRight).Select
れつ	Selection.Areas(1).Columns.Count