Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14763 / 76734

←次へ　｜　前へ→


	【67459】Re:rangeの中でcells

kanabun - 10/12/6(月) 21:14 -


	引用なし

	パスワード

▼ぴっぴさん：
こんにちは～～

>１０列～１５列における１７～３０行目を削除し、左寄せしたいと考えてます．
>rangeの行でエラーが…．

>Range(Cells(17, j) & ":" & Cells(30, j))
　　　　　↑　　　　　　　　　　↑
& ":" & で文字列を作り出しているようななのでそこはセルそのもの
でなく、 A1形式のセルアドレス(文字列)で指定しないといけません。

Sub Test2()
　Dim j As Long
　
　For j = 15 To 10 Step -1
　　Range(Cells(17, j).Address(0, 0) & ":" & Cells(30, j).Address(0, 0)).Delete shift:=xlShiftToLeft
　Next
End Sub

あるいは先頭セルと最後のセルを渡すなら、
ヘルプの構文2 のやりかたを使ってください。
　 Range(Cells(17, j), Cells(30, j))

また、一括指定してもよいのでは？

Sub Test3()
　Cells(17, 10).Resize(14, 6).Delete shift:=xlShiftToLeft
End Sub

1 hits

▼

【67458】rangeの中でcells ぴっぴ 10/12/6(月) 20:38