|
お礼を返したところに重ねて質問で申し訳ありません。
E3〜H*に貼り付けたデータをG列で降順にソートした後
各貼り付けへ移行したいです。
(*頂いた下記データにソートを追加したい)
.Range("E:H").PasteSpecial Paste:=xlPasteValues
の下に
.Range("E3").CurrentRegion.Sort(KEY1:=RANGE("G3"),Order1:=xlDescending)
と入力してみましたが
コンパイルエラー: 修正候補:=
で行き詰ってしまいました。
CurrentRegionでは認識しないのでしょうか・・・
>Sub test()
> Dim aSh As Worksheet
> Dim i As Integer
>
> Set aSh = Sheets("マクロセット")
> '#データ更新
> With aSh
> .Columns("E:J").Clear
> Sheets("計画").Range("K:N").Copy
> .Range("E:H").PasteSpecial Paste:=xlPasteValues
> Sheets("Data Base").Range("AP4:AP100").Copy
> .Range("J8").PasteSpecial Paste:=xlPasteValues
>
> .Range("E3:H3").AutoFilter
>
> If ActiveWorkbook.Worksheets.Count < 8 Then Exit Sub
> For i = 8 To ActiveWorkbook.Worksheets.Count
> .Range("$E$3:$H$5000").AutoFilter _
> Field:=4, Criteria1:=.Cells(i, 10).Value
> .Range("E3").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
> Sheets(i).Range("B53").PasteSpecial Paste:=xlPasteValues
> Next i
> End With
>
>End Sub
|
|