|
▼ぴっぴ さん:
こんにちは〜〜
>10列〜15列における17〜30行目を削除し、左寄せしたいと考えてます.
>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
|
|