No.6ベストアンサー
- 回答日時:
No2です
>数式のせいでまとめシートに集約されたデータが全てエラーになってしまいました。
失礼しました。そこまでは気が回りませんでした。
いわゆる「値をペースト」にするには
Worksheets(n).Range("U:Y").Copy Destination:=destR
の1行の部分を
Worksheets(n).Range("U:Y").Copy
destR.PasteSpecial Paste:=xlPasteValues
の2行に代えることで、実現できると思います。
…と書きながら、いまさらですが思いつきました。
まとめシートには、対象シートのセルを参照する式を設定しておくという方法もありましたね。
この方法だと、一度だけVBAを実行しておけば、その後で元のシートの値が変わっても、自動的にリンクしてその値が表示されるようになります。
No.7
- 回答日時:
>Sheets(sname).Select の部分で止まってしまいました。
>引き続きどうぞよろしくお願いいたします。
該当シートがない為、止まっていると考えられます。
エラー発生時、snameにマウスカーソルをあてるとsnameの内容が表示されます。
もし、それが、例えば、Sheet20と表示されたなら、Sheet20がないことになります。
お返事ありがとうございます、カーソルを宛ててみましたら、Sheet12と表示されました。
ですが、Sheet12は存在しています。Sheet12というシート名に変更したら解決しますでしょうか?
No.5
- 回答日時:
>値だけ貼り付ける良い方法はありますでしょうか。
値だけの貼り付けなら、以下のようにしてください。
Option Explicit
Public Sub シートまとめ()
Dim i As Long
Dim sname As String
Dim col As Long
col = 1
For i = 12 To 37
sname = "Sheet" & i
Sheets(sname).Select
Range("U1:Y1300").Select
Selection.Copy
Sheets("まとめシート").Select
Cells(1, col).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
col = col + 6
Next
End Sub
ご回答ありがとうございました
Sheets(sname).Selectのところで止まってしまいましたが、他の方に示していただいた方法を試したら無事解決いたしました。ありがとうございました。
No.4
- 回答日時:
以下のマクロを標準モジュールに登録してください。
Option Explicit
Public Sub シートまとめ()
Dim i As Long
Dim sname As String
Dim col As Long
col = 1
For i = 12 To 37
sname = "Sheet" & i
Sheets(sname).Select
Range("U1:Y1300").Select
Selection.Copy
Sheets("まとめシート").Select
Cells(1, col).Select
ActiveSheet.Paste
col = col + 6
Next
End Sub
ご回答ありがとうございました。
モジュールに登録して作動させたところ
Sheets(sname).Select の部分で止まってしまいました。
引き続きどうぞよろしくお願いいたします。
No.2
- 回答日時:
こんにちは
どこかに「12シートから37シート」のシート名のリストがあれば、関数で可能だと思います。
とはいえINDIRECT関数のオンパレードになってはしまいますが…
VBAでもよいのであれば、以下でいかがでしょうか?
ただし、「12シートから37シート」というのはWorkSheet(12)~(37)で良いものと解釈しました。(シート名がSeet12~37という意味とは異なります。)
Sub Sample()
Dim destR As Range, n As Integer
Const msheet = "まとめ" '←まとめシートの名前
Worksheets(msheet).Cells.ClearContents
Set destR = Worksheets(msheet).Cells(1, 1)
For n = 12 To 37
Worksheets(n).Range("U:Y").Copy Destination:=destR
Set destR = destR.Offset(0, 6)
Next n
End Sub
ご回答ありがとうございます、まさに私が必要としているものを作っていただいて感謝しています。U:Yに入っていた数式のせいでまとめシートに集約されたデータが全てエラーになってしまいました。
Worksheets(n).Range("U:Y").Copy Destination:=destRの部分を
Worksheets(n).Range("U:Y") = destR
と、
Worksheets(n).Range("U:Y").Value = destR.Value
と値だけ貼り付けるつもりで変更してみたのですが、できませんでした。
値だけ貼り付ける良い方法はありますでしょうか。
No.1
- 回答日時:
> 行方向のマージの方法しか見つけることができずに困っています。
行方向にマージしてから、コピー、形式を指定して貼り付けで、行と列を入れ替えるじゃダメですか?
121ware.com - Excel 2010でシートに入力されているデータの行と列を入れ替える方法
https://121ware.com/qasearch/1007/app/servlet/re …
Office - 行から列、または列から行にデータを入れ替える (配置の転換)
https://support.office.com/ja-jp/article/%E8%A1% …
ご回答ありがとうございます、行列を入れ替えたいのではなく、
シート12のU列からY列にあるデータを
まとめシートのA列からE列へ、
シート13のU列からY列にあるデータを
まとめシートのG列からK列へ
シート14のU列からY列にあるデータを
まとめシートのM列からQ列へ。。。。というふうにシート37まで繰りかえしていきたいです。
説明不足で申し訳ありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Excel(エクセル) 複数のExcelブックのシート1の内容を1つのExcelブックにコピー貼り付けたいのでvbaコードを 7 2023/02/10 23:20
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Visual Basic(VBA) 別ブックの列同士の値が一致したときの処理 1 2022/09/03 08:27
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
VBAで2つのデータを横に結合できますか?
Access(アクセス)
-
【VBA】全ての複数シートから指定した列をコピー、新しいブックの1シートに抽出する
Visual Basic(VBA)
-
-
4
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
5
横にコピーするマクロを教えてください。
Excel(エクセル)
-
6
複数のセルをコピーし、別シートの任意のセルへペーストをするためのマクロ
Excel(エクセル)
-
7
EXCEL:複数シートから特定行を一覧化したい
その他(Microsoft Office)
-
8
EXCELマクロで、シート間でのコピーペーストを繰り返す方法
Excel(エクセル)
-
9
エクセルVBA 別シートの複数のセルの値をコピーする方法
Excel(エクセル)
-
10
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
11
複数のシートの同じセル範囲を一つのシートにまとめたいです。
Excel(エクセル)
-
12
マクロで貼り付け位置を可変させる方法が知りたいです。
Excel(エクセル)
-
13
別シートの最終行に貼り付けするマクロを教えてください。 シートYのE3からE15までをコピー シート
Excel(エクセル)
-
14
作ったマクロを複数のシートで実行できるようにしたい。
Excel(エクセル)
-
15
別のシートから値を取得するとき
Visual Basic(VBA)
-
16
マクロを複数シートに実行するには?
Excel(エクセル)
-
17
複数シートの同じセル内容を1シートに順番に貼り付けたい
その他(Microsoft Office)
-
18
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
19
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
20
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
エクセルで通し番号を入れてチ...
-
別のシートから値を取得するとき
-
ブック名、シート名を他のモジ...
-
シート名の一部を変更する方法...
-
シート名をフォルダ名に変更
-
指定文字が含まれるシートを削...
-
シートが保護されている状態で...
-
PerlでExcelのワークシートを同...
-
excelシートから別のexcelシー...
-
VBA オートフィルター繰り返し
-
【VBA】色のついたシート名を取得
-
セルのコピーで「オブジェクト...
-
ExcelのVBAのマクロで他のシー...
-
VBA 別ブック(シート)の同...
-
VBAです。ユーザーフォームの表...
-
VBAで特定のシート以外のシート...
-
Excel VBA マクロ あるフォルダ...
-
<Excel2010> カレンダーから日...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報
具体的には
シート12のU列からY列にあるデータを
まとめシートのA列からE列へ値のみ貼り付け、
シート13のU列からY列にあるデータを
まとめシートのG列からK列へ値のみ貼り付け
シート14のU列からY列にあるデータを
まとめシートのM列からQ列へ値のみ貼り付け。。。。というふうにシート37まで繰りかえしていきたいです。
説明がへたくそで申し訳ありません、よろしくお願いいたします。