Excel VBA について

Question

panana

100

95もっと見る

60pt

コンピュータ

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まで繰り返したいのですが、何かいい方法はないでしょうか…。

回答の条件

1人2回まで

登録：2006/06/29 15:54:47
終了：2006/06/29 16:12:58

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

llusall 2006/06/29 16:28:14

'ESを149に変換することもできます。
col_max = Columns("ES").Column
gong1971 2006/06/29 16:50:34

For Each を使う方法もありますね。
llusall 2006/06/29 17:02:22

Renge で For Each ？
gong1971 2006/06/29 17:29:06

Dim rg As Range
For Each rg In Range("A1:ES8000")
って感じで。変ですかねぇ?
llusall 2006/06/29 17:33:45

全然変じゃないと思います。
それは思いつきませんでした。
llusall 2006/06/29 17:43:32

あっ、大事な事を忘れていました！！！

何故、"" の場合に、ClearContents　するのでしょうか？

最初、
Range("A1:ES8000").ClearContents
でおしまいなのかと思ってました。
何か変な事言ってますかねぇ。
panana 2006/06/30 10:25:48

コメントありがとうございます。
ExcelのVBAは「マクロの自動記録」でできたものをなんとなくいじる程度なので、
応用をきかせるのがなかなか難しいです。
llusallさんとgong1971さんの会話(？)が理解できるように頑張ります。
またご指導よろしくお願いします。
gong1971 2006/07/03 15:47:26

> llusallさん
> 何故、"" の場合に、ClearContents　するのでしょうか？

推測ですが... =IF(B1=0,"",A1/B1) みたいな数式が
入っているんじゃないかなーと思いました。
(もしくは、その数式を値貼り付けした状態とか...←これはすごく厄介!)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

きゃづみぃ · Accepted Answer · 2006-06-29T16:01:18+09:00

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

とすればいいでしょう。

Excel VBA について

ベストアンサー

きゃづみぃ1353911982006/06/29 16:01:18

コメント（8件)

この質問への反応（ブックマークコメント）