Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33548 / 76738

←次へ　｜　前へ→


	【48406】Re:ファイルのデータをまとめ、更に別場所にコピー

のぶ - 07/4/16(月) 16:19 -


	引用なし

	パスワード

お世話になります。

頂いたコードで色々唸っているのですが、分からないところがあるので、
質問させてください。

1.>xR = .Range("A65536").End(xlUp).Row
　>If i = 1 Then
2.>　.Range("A1:AF" & xR).Copy WS.Range("A1")
　>Else
3.>　.Range("A2:AF" & xR).Copy WS.Range("A65536") _
　>　.End(xlUp).Offset(1)
　>End If

1.xRにA列の下から上にデータが入ってる直前のセルを探してその値を入れる
2.A1：AF30～データが入っている一番下のセルをコピー
（データがある列を全部コピー）
>WS.Range("A1")
→これも分かりません。

3.全体の処理的には2週目（2ファイル目）以降は3.にいくみたいなのですが、
処理自体がちょっと分からないので困っております。

お時間有ればご教授お願い致します。

0 hits

▼

【48334】ファイルのデータをまとめ、更に別場所にコピー のぶ 07/4/13(金) 9:53