Excel VBA質問箱 IV

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

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


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

25270 / 76732

←次へ　｜　前へ→


	【56803】Re:【VBA】1000×1000のループ処理について

見習い - 08/7/6(日) 3:31 -


	引用なし

	パスワード

>どんな方法でもかまいませんので、アドバイス宜しくお願いいたします。｢どんな方法でも｣ということで数式で。手元に2007が無いので検証出来ませんが。処理前にｙさんの[56802]の内容は確認しておいてください。 Sub Macro3() Dim a As String, b As String, c As String 　　a = "=INT((ROW()-1)/1001)" 'A列　　b = "=MOD(ROW()-1,1001)"　 'B列　　c = "=ROUNDUP(B1*1.2,0)"　 'C列　　　　With Range("A1:C1") 　　　　.Value = Array(a, b, c)　　'1行目に数式を埋め込む　　　　.Resize(1001 ^ 2).FillDown '下にフィルコピー　　End With End Sub このマクロが2007では動かなかったら、手作業で数式を埋め込んで下にコピーしてみてください。終わったら、コピーして【形式を選択して貼り付け→値】で値にしておくと良いかも。