![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.7
- 回答日時:
こんにちは
「できない」という情報しかないので、「何をどうしたいのか」わからないため、当たるも八卦の回答しかできませんけれど・・
コピーするのはA列だけで良いと仮定して、コピーする部分のコードを、
Range("A1").Resize(Cells(Rows.Count, 1).End(xlUp).Row).Copy _
Destination:=.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
とでもしておけば、その部分に関しては動作すると思います。
しかしながら、(補足にご提示のコードがどのようにして書かれたのものなのか不明ですが)他にもいろいろありそうなので、上記だけで動作するようになるとは限らなそうです。
No.5
- 回答日時:
勉強しますではなくて、それぞれ何が表示されましたか?
それを見てどの様に思いますか?
と、尋ねてるんです。
他の方の回答でも同じ様に試してみてどう思うかです。
それをどう認識してどうしようか決めるのが貴方の仕事なんです。
つまり、表示されたものがそれぞれ何かと、それをどう思うかを教えて下さい。
保存されたデータの中で空白セルまでがコピーされてそれ以降コピーされない感じです。
例えば1から10の回答で5が空白なら1から4までしかコピーできない。
コピー範囲が1から4までしか指定されない状態です。
空白以降の回答もコピーできるようにしたいのですがそれをどうクリアすればいいかわからない状態です。
ご質問の対してまともな返答ができずすみませんでした。
No.4
- 回答日時:
あなたがするべきことはコードを尋ねることじゃありません。
実際に置きていることの確認です。
例えばCopyの行が多分それですよね?
そこにブレークポイントをセットするか、もしくは
ステップ実行でその行が黄色になるまで進めて
その状態で確かめることが必要なんです。
確かめるのはCopyの前と後ろはどんなセル範囲に
なっているかです。
イミディエイトウィンドウに
? Range("A1").CurrentRegion.Address
? Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Address
こうしてセル範囲が自分の思っている通りかを
確認するから理解できるんです。
この作業を怠っていたらうまく行かないで終わってしまいます。
確認した結果どうしますか?
No.2
- 回答日時:
>.CurrentReg ion
どのような定義で範囲を指定したいのか不明なので参考サイトです
https://tonari-it.com/excel-vba-usedrange-curren …
UsedRange とかで希望通りになりますか?
ならない場合は
はじめと終わりのセルの位置を取得して組み立てる
https://www.limecode.jp/entry/syntax/setrange-da …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) エクセルのマクロを教えてください 4 2022/02/04 08:05
- Visual Basic(VBA) コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、 7 2024/01/10 22:50
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) 最終行の指定について教えてください。 複数シートを1シートへまとめる下記マクロでは各シートの6行目を 1 2022/10/04 18:37
- Excel(エクセル) マクロについて 2 2023/10/20 14:29
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルの表の参照値から円を取って数字で扱えるようにしたい
Excel(エクセル)
-
エクセルのセル統合について
Excel(エクセル)
-
Excelで【1-11】と入力すると【1月11日】になってしまう
Excel(エクセル)
-
-
4
エクセルのcountifのワイルドカードについて
Excel(エクセル)
-
5
Excelでこういう年を切り替えられる簡易なカレンダーを作ったのですが、 年や月を変えると、色が付い
Excel(エクセル)
-
6
<急募>エクセルデータの関数を用いた並び替えについて
Excel(エクセル)
-
7
Excel データの並び替え
Excel(エクセル)
-
8
Excel表について(1)
Excel(エクセル)
-
9
エクセルの「パスの定義」の仕方について教えてください
Excel(エクセル)
-
10
エクセル 該当行だけを表示したい。 削除でもいいし、非表示でもいいです。 手動でひひょうじにするので
Excel(エクセル)
-
11
エクセル詳しい方教えて下さい
Excel(エクセル)
-
12
Excelの関数に関する質問です
Excel(エクセル)
-
13
excelの不要な行の削除ができない!
Excel(エクセル)
-
14
Excel関数の先頭に「@」が入っているのは何故?
Excel(エクセル)
-
15
エクセルの行を巾を変えずに増やす方法
Excel(エクセル)
-
16
Excel関数かなにかでスムーズに処理するにはあなたならどうしますか?
Excel(エクセル)
-
17
Excel
Excel(エクセル)
-
18
Excel表について(2)
Excel(エクセル)
-
19
Excelのテーブルでmatch関数の使い方について
Excel(エクセル)
-
20
曜日の 月 を (月) と表示させる方法について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
C+vのvは英語で何の頭文字...
-
PDFの一部を切り取って別のシー...
-
WORDのグレー括弧って?
-
塗りつぶしの色をコピーするには
-
エクセルでコピーしたものをコ...
-
Word(Offce365)の不思議な現...
-
Excel 3列毎のセルを別の表に抽...
-
Wordの「背景色を消す方法」教...
-
Excel:切り取り→”形式を選択し...
-
コピペのやり方教えてください...
-
コピーされたセルの文字が途中...
-
EXCEL 1つ飛ばしのセル参照
-
セルに値がある行のみを抽出す...
-
Adobe Acrobat DCのスナップシ...
-
ショートカットキーのCtrl+V(...
-
エクセルの表をjpegにしたい(Mac)
-
【エクセル】表の中の文字だけ...
-
googleで翻訳したテキストがコ...
-
オートフィルタ時に非表示にし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
塗りつぶしの色をコピーするには
-
PDFの一部を切り取って別のシー...
-
C+vのvは英語で何の頭文字...
-
【エクセル】表の中の文字だけ...
-
Excel 3列毎のセルを別の表に抽...
-
VBAのテキストボックスに文字列...
-
セルに値がある行のみを抽出す...
-
WORDのグレー括弧って?
-
セルから一部だけを抜き出して...
-
コピーされたセルの文字が途中...
-
EXCEL 1つ飛ばしのセル参照
-
エクセルでコピーしたものをコ...
-
Word(Offce365)の不思議な現...
-
数式による空白を無視して最終...
-
コピー&貼り付けの仕方を教え...
-
空白行を無視してコピーするマ...
-
マイナスの場合「xxxx-」...
-
【Excel】数式をそのまま他のシ...
-
エクセルでマクロにてセル色と...
おすすめ情報
ご返答ありがとうございます。
やってみたのですが上手く動きません汗
フォルダ内のデータを集計するvbaを作りたいのです。
いま作ってるのは
Dim A'フォル内の1つのブック名を取得
A=Dir(ThisWorkbook.Path&"/回答/*)
Do While A <> "" 'ブックを開く
Workbooks.Open ThisWorkbook.Path&"/回答&A
With ThisWorkbook.Sheets("集計")
'アンケート結果をコビ
Range("A1").CurrentRegion.Copy.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
ブックを閉じる
Activeworkbook.Close False
End With
Activelorkbook.Close Falsel
A= Dir()'次のブック名を取得
Loop
End Sub
以上です。