|
こんにちは。
おじゃまします。
全く違う方法ですが....。
P列を作業列に使ってます。
不都合でしたら、適当な列に変更してください。
Sub hsdndh()
Dim S2ER As Long, i As Long
Application.ScreenUpdating = False
Sheets("Sheet1").UsedRange.Copy
With Sheets("Sheet2")
.Range("A1").PasteSpecial
S2ER = .Range("O65536").End(xlUp).Row
.Range("O2:O" & S2ER).Offset(, 1).Formula = "=COUNTIF(O$1:O2,O2)&""/""&O2"
For i = S2ER To 2 Step -1
.Rows(i).Copy
.Rows(i).Resize(.Cells(i, "O").Value - 1).Insert
Next
S2ER = .Range("O65536").End(xlUp).Row
.Range("O2:O" & S2ER).NumberFormatLocal = "@"
.Range("O2:O" & S2ER).Offset(, 1).Copy
.Range("O2").PasteSpecial (xlPasteValues)
.Range("O2:O" & S2ER).Offset(, 1).Delete
Application.Goto reference:=.Range("A1"), Scroll:=True
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub
|
|