0

同じ行にある飛び飛びの複数のセルの値を一度に削除したいのです。 同じ行にある飛び飛びの複数のセルの値を一度に削除したいのですが、

下記のようにすれば、希望通りの10行目の指定したセルを削除できます。

Private Sub DEL_1_Click()
RANGE("F10,I10,L10,O10,R10,U10,X10,AA10,AD10,AG10").Select
Selection.ClearContents
End Sub


しかし、代数を使い下記の通りするとうまくいきません。
どこが間違えているのか教えていただきたくお願いいたします。

Private Sub DEL_1_Click()
Dim A As Integer
A = 10
RANGE("F" & A, "I" & A, "L" & A, "O" & A, "R" & A, "U" & A, "X" & A, "AA" & A, "AD" & A, "AG" & A).Select
Selection.ClearContents
End Sub


一方、下記の通りするとF10とI10のセルの間が削除できます。

Private Sub DEL_1_Click()
Dim A As Integer
A = 10
RANGE("F" & A, "I" & A).Select
Selection.ClearContents
End Sub

ご教授頂きたく宜しくお願いいたします。
エクセル２０００を使用しています。

質問者が選んだベストソリューション

Yahoo!知恵袋 5467日前