|
▼kanabun さん:
色々と、ありがとうございます><
早速試してみます。
また、フィードバック致します。
宜しくお願い致します。
>いちおうTry4() 修正版です
>
>Sub Try4b()
> Const m = 4 '表全体の列数【適宜変更してください】
> Dim n As Long
>
> n = Cells(Rows.Count, 1).End(xlUp).Row
> Columns(1).Insert '作業列挿入
> With Range("A1").Resize(n)
> .Item(2).Value = 2
> .Item(6).Value = 6
> .Resize(7).AutoFill Destination:=.Cells
> .Resize(, m + 1).Sort Key1:=.Columns(1), Header:=xlNo
> Range(Cells(n, 1), _
> Cells(Rows.Count, 1).End(xlUp).Offset(1)) _
> .EntireRow.Clear
> End With
> Columns(1).Delete '作業列削除
>
>End Sub
|
|