| |
▼レイモンド さん：
>あるシートのAの列には昇順でアルファベットが並んでます。
>アルファベットはA〜Zで、それぞれ行数は異なります。
>例えばAは1〜5行目まで、Bは6〜20行目まで、Cは21〜25行目までといった具合です。
>これを各アルファベット毎にシートを別にして貼り付けしなおす方法を模索しています。
>
>例えばAである5行はシート2へ、Bの15行はシート3へコピーペーストして貼り付けたいと考えております。
こんにちは。
シート数が27あるとして
又、1行目がタイトル行として
Sub AZFilter()
Dim i As Long
With Worksheets("Sheet1")
For i = 1 To 26
.AutoFilterMode = False
With .Range("A1").CurrentRegion
.AutoFilter Field:=1, Criteria1:=Chr(i + 64)
.SpecialCells(xlCellTypeVisible).Copy _
Worksheets(i + 1).Range("A1")
End With
Next
.AutoFilterMode = False
End With
End Sub
|
|
Yuki
- 09/9/25(金) 15:24 -
