| |
▼ぴっぴ さん：
こんにちは〜〜
>１０列〜１５列における１７〜３０行目を削除し、左寄せしたいと考えてます．
>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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
