Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48912 / 76732

←次へ　｜　前へ→


	【32747】Re:繰り返し処理

Jaka - 05/12/21(水) 16:13 -


	引用なし

	パスワード

どういう風に繰り返すのか解らずに作ってみたけれど...。
計算出来る範囲を超えちゃってエラーになります。

With Range(Range("A2"), Range("A65536").End(xlUp))
　　 For i = 2 To 30
　　　　 AD1 = Cells(2, i).Address(0, 0)
　　　　 AD2 = Cells(2, i - 1).Address(0, 0)
　　　　 .Offset(, 255 - i + i).Formula = "=IF(" & AD1 & "=""?"",""""," & AD1 & "*1*" & AD2 & ")"
　　　　 .Offset(, i).Value = .Offset(, 255 - i + i).Value
　　　　 DoEvents
　　　　 .Offset(, 255 - i + i).ClearContents
　　 Next
End With
Columns(256).Delete

2 hits

▼

【32733】繰り返し処理 超初心者 05/12/21(水) 14:01