|
▼INA さん:
前の発言は、本当に助かりました^^ どうもありがとうございました。おかげで、0と1に分ける事ができました〜。
いつも本当に、ありがとうございます。ファイルの指定は、フォルダを指定し、その中の全EXCELファイルに対して実行する方法です。
>ファイルの指定はどのように行いますか?
>ファイルを1個ずつ指定しながら処理する?
>フォルダを指定し、その中の全EXCELファイルに対して実行する?
>フォルダを指定し、その中の特定の名前のEXCELファイルに対して実行する?
ありがとうございます。早速試してみます!!
>貼り付け先の最下行の取得は
>Range("A65536").End(xlup).offset(1,0)
>でできますので、これを抽出したデータの貼り付け先に指定して下さい。
>
>Dim myNewBook As Workbook
> Set myNewBook = Workbooks.Add
> ActiveSheet.UsedRange.Copy _
> Destination:=myNewBook.Worksheets(1).Range("A65536").End(xlUp).Offset(1, 0)
>
>↑こんな感じ。
貼り付けた後に、不要な行を削除=同じ物を消して行くという事は思いつきませんでした。その方法の方がレスポンスがはやそうですね!
>全部貼り付けた後に、不要な行を削除した方が良いのでは?
いつもわかりにくくてすいません・・・・ INAさんのおっしゃった通り、同じパターン数が一番多かった順です!
>「カウントしてあったデータ」の意味が分からないです。
>「同じパターン数が一番多かった順」同じデータは、不要なのでは?
>ここは意味がわからんです。
|
|