Excel VBA質問箱 IV

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

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


25270 / 76732 ←次へ | 前へ→

【56803】Re:【VBA】1000×1000のループ処理について
回答  見習い  - 08/7/6(日) 3:31 -

引用なし
パスワード
   >どんな方法でもかまいませんので、アドバイス宜しくお願いいたします。

「どんな方法でも」ということで数式で。
手元に2007が無いので検証出来ませんが。
処理前にyさんの[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では動かなかったら、手作業で数式を埋め込んで
下にコピーしてみてください。

終わったら、コピーして【形式を選択して貼り付け→値】で値に
しておくと良いかも。

0 hits

【56744】【VBA】1000×1000のループ処理について ロミ 08/7/3(木) 1:25 質問
【56745】Re:【VBA】1000×1000のループ処理について ハチ 08/7/3(木) 9:20 発言
【56767】Re:【VBA】1000×1000のループ処理について ロミ 08/7/3(木) 22:14 お礼
【56802】Re:【VBA】1000×1000のループ処理について 08/7/6(日) 2:29 回答
【56746】Re:【VBA】1000×1000のループ処理について こぎつね 08/7/3(木) 9:27 発言
【56768】Re:【VBA】1000×1000のループ処理について ロミ 08/7/3(木) 22:20 お礼
【56747】Re:【VBA】1000×1000のループ処理について neptune 08/7/3(木) 9:29 発言
【56769】Re:【VBA】1000×1000のループ処理について ロミ 08/7/3(木) 22:26 お礼
【56771】Re:【VBA】1000×1000のループ処理について neptune 08/7/3(木) 22:42 発言
【56774】Re:【VBA】1000×1000のループ処理について しょう 08/7/4(金) 9:27 回答
【56798】Re:【VBA】1000×1000のループ処理について SS 08/7/5(土) 10:44 発言
【56803】Re:【VBA】1000×1000のループ処理について 見習い 08/7/6(日) 3:31 回答

25270 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free