|
どんなデータかわかりませんけど、
例えば、下のような感じですかね?
A列を精査して、東京都のものをシート2にコピーします。
Sub 一定の数字以上の行を抜き出す()
Dim i As Integer
Dim sheet2Columns As Integer
sheet2Columns = 1
For i = 1 To 100
If Sheets(1).Range("A" & i).Value = "東京都" Then
Worksheets(1).Rows(i).Copy Worksheets(2).Rows(sheet2Columns)
sheet2Columns = sheet2Columns + 1
End If
Next i
End Sub
▼エクセル初心者 さん:
>お願い致します。
>
>あるシートにお客様情報(名称・住所・電話番号)の表(3万件ほど)があります。
>
>それをどうしても、都道府県別に一発で振り分けれないかと思いました。
>どなたか良い方法をご存知ないでしょうか?
>1シート1県とかでもいいです。
>
>エクセルのオートフィルタのオプションでやると2条件が限界で、今まではそれを手で何回も繰り返してやっていましたが(頻度が少なかったため)が毎月やらなければならなくなったのでとても苦になっています。
>
>どうかお助けください。
>
>よろしくお願い致します。
|
|