[vb] Range("A2").Select Range(Selection, Selection.End(xlDown)).Select rowcnt = Selection.Rows.Count
[/vb]
メールアドレスが公開されることはありません。 ※ が付いている欄は必須項目です
コメント ※
名前 ※
メール ※
サイト
Δ