人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excel VBA について

Dim i As Integer
For i = 1 To 8000
Range("A" & i).Select
If Range("A" & i) = "" Then
Selection.ClearContents
End If
Next i
End Sub

A1 から A8000 まで処理を繰り返した後、B1 から B8000 まで…そのあとはC1に行って…で、
最終的にES8000まで繰り返したいのですが、何かいい方法はないでしょうか…。

●質問者: panana
●カテゴリ:コンピュータ
✍キーワード:A1 as Excel NeXT SELECT
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●60ポイント ベストアンサー

Dim i As Integer

Dim a As Integer

For a = 1 To 149

For i = 1 To 8000

If Cells(i, a) = "" Then

Cells(i, a).ClearContents

End If

Next i

Next a

とすればいいでしょう。

◎質問者からの返答

列番号も足していけるんですね。勉強になりました。

質問文の"A"の部分をいちいち書き直さなきゃならないかと思いました。

助かりました。ありがとうございました!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ