| |
どんなデータかわかりませんけど、
例えば、下のような感じですかね？
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シート１県とかでもいいです。
>
>エクセルのオートフィルタのオプションでやると２条件が限界で、今まではそれを手で何回も繰り返してやっていましたが（頻度が少なかったため）が毎月やらなければならなくなったのでとても苦になっています。
>
>どうかお助けください。
>
>よろしくお願い致します。
|
|
ちくたく
- 05/8/8(月) 10:33 -
