|
▼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
|
|