| |
▼INA さん：
前の発言は、本当に助かりました＾＾ どうもありがとうございました。おかげで、０と１に分ける事ができました〜。
いつも本当に、ありがとうございます。ファイルの指定は、フォルダを指定し、その中の全EXCELファイルに対して実行する方法です。
>ファイルの指定はどのように行いますか？
>ファイルを１個ずつ指定しながら処理する？
>フォルダを指定し、その中の全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さんのおっしゃった通り、同じパターン数が一番多かった順です！
>「カウントしてあったデータ」の意味が分からないです。
>「同じパターン数が一番多かった順」同じデータは、不要なのでは？
>ここは意味がわからんです。
|
|
テーブル
- 03/10/22(水) 16:33 -
