|
▼kanabun さん:
修正版ありがとうございました。
こちらも正常に動き、本当に時間が短縮されました。
UO3さんとkanabunさんには本当にお世話なりました。
今後の業務に今回頂いた内容を活かし、
時間的にもかなり短縮され、とても嬉しいです。
本当にありがとうございました!
宜しくお願い申し上げます。
maimai
>▼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
|
|