Excel VBA質問箱 IV

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

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


58649 / 76732 ←次へ | 前へ→

【22806】Re:Sheet1のデータをSheet2に条件をつけて複...
発言  ponpon  - 05/3/3(木) 22:52 -

引用なし
パスワード
   ▼Sora さん、G-Luckさん、ichinoseさん
>
>条件:Sheet1の各列のデータを"O"の値の数だけSheet2にコピーする。

ponponです。こんばんは。
sheet1をsheet2にコピーするのでデータが多いと遅くなると思います。
それと、5/5、3/3の書式がうまくいきませんでした。
参考にしてください。
Sub test()
  Dim i As Long
  Dim j As Long
  Dim T As Single
  Dim m As Single
   Application.ScreenUpdating = False
   Worksheets("sheet1").Cells.Copy
   With Worksheets("sheet2")
  
   .Range("A1").PasteSpecial
   
   For i = Range("O65536").End(xlUp).Row To 2 Step -1
    T = .Cells(i, "O").Value
     With .Cells(i, "O")
      For j = 1 To T - 1
        .EntireRow.Insert Shift:=xlDown
      Next j
       For m = 1 To T - 1
        .Offset(, -14).Resize(1, 14).Copy
        .Offset(-m, -14).PasteSpecial
        .Offset(-m, 0).NumberFormatLocal = "?/?"
        .Offset(-m, 0).Value = (T - m) / T
       Next m
       Application.CutCopyMode = False
      End With
   Next i
  End With

0 hits

【22799】Sheet1のデータをSheet2に条件をつけて複... Sora 05/3/3(木) 18:26 質問
【22802】Re:Sheet1のデータをSheet2に条件をつけて... G-Luck 05/3/3(木) 19:02 発言
【22804】Re:Sheet1のデータをSheet2に条件をつけて... ichinose 05/3/3(木) 19:57 発言
【22806】Re:Sheet1のデータをSheet2に条件をつけて... ponpon 05/3/3(木) 22:52 発言
【22816】Re:Sheet1のデータをSheet2に条件をつけて... Sora 05/3/4(金) 10:56 質問
【22818】Re:Sheet1のデータをSheet2に条件をつけて... Jaka 05/3/4(金) 13:00 回答
【22838】間違えました。 Jaka 05/3/4(金) 17:31 回答
【22819】Re:Sheet1のデータをSheet2に条件をつけて... ichinose 05/3/4(金) 13:04 発言
【22845】Re:Sheet1のデータをSheet2に条件をつけて... Sora 05/3/4(金) 19:07 お礼

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