お世話になります。
あるデータを扱うため、sheet_1に以下のような表を作成し管理を行っております。
sheetは複数存在するので、敢えてsheet_1とします。
(sheet_1)
B列ーC列ーD列ーF列ーG列ーH列ーI列ーJ列ーK列ーL列・・・
3行 A A A A B B B B C C
4行 A A A A B B B B C C
5行 A A A A B B B B C C
6行 A A A A B B B B C C
7行 F F F F G G G G H H
8行 F F F F G G G G H H
9行 F F F F G G G G H H
10行 F F F F G G G G H H
11行 K K K K L L L L M M
12行 以下、上記のように続く
4列毎×4行毎の16セル分の範囲を1情報として扱っているのですが、VBAを利用して記入された横方向の情報を下部行(例えば150行目)で縦に置き換える方法をご教授いただきたく投稿致しました。
変換元の対象範囲はB3:BM126です。
(sheet_1)
B列ーC列ーD列ーF列ーG列ーH列ーI列ーJ列ーK列ーL列・・・
150行 A A A A F F F F K K
151行 A A A A F F F F K K
152行 A A A A F F F F K K
153行 A A A A F F F F K K
154行 B B B B G G G G L L
155行 B B B B G G G G L L
156行 B B B B G G G G L L
157行 B B B B G G G G L L
158行 C C C C H H H H M M
159行 以下、上記のように続く
同一sheet内ではなく、新たにsheetを作成して同じ結果を求める方法でも構いませんので、恐れ入りますがご教授宜しくお願い致します。
No.3ベストアンサー
- 回答日時:
横から失礼。
>Private Sub CommandButton1_Click()
という記述から推測すると、シート上にCommandButtonを配してシートモジュールに書いたコードを実行していますね?
かつ、そのシートはSheet1ではないという事では。
シートモジュールでRangeの親を省略すると、そのモジュールが書かれているシートのRangeになります。
Sheet2のシートモジュールならSheet2.Range("B3:BM126")になります。
Sheet1.Select のあとに
Range("B3:BM126").Select としてしまうと、Sheet2がアクティブではないのでエラーになります。
仮に
Range("B3:BM126").Copy としても、Sheet2.Range("B3:BM126")が対象になるので、目的の範囲ではないかもしれません。
Rangeの親Objectからきちんと指定してあげましょう。
Private Sub CommandButton1_Click()
With Sheet1
.Range("B3:BM126").Copy
.Range("B150").PasteSpecial Paste:=xlPasteAll, _
Transpose:=True
'コピー後Sheet1を表示させたいなら
Application.Goto .Range("B150")
End With
Application.CutCopyMode = False
End Sub
複数のシートで処理したいなら標準モジュールにコードを置いて、
『Sheet1』ではなくActiveSheetに対して処理するように変更すれば良いでしょう。
end-u 様
ご回答いただきましたコードにて望んだ動作が得られました。
コードの意味をもっと勉強する必要があるものと痛感致しました。
ありがとうございました。
No.2
- 回答日時:
これでうまく行かないでしょうか?
Private Sub CommandButton1_Click()
Sheet1.Select
Range("B3:BM126").Copy
ActiveWindow.SmallScroll Down:=120
Range("B150").PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub
No.1
- 回答日時:
範囲をコピーして、「形式を選択して貼り付け」で「行列を入れ替える」にすればよいです。
この回答への補足
nattocurry様
お世話になります。
早速試してみました。
動作は問題なく要望どおり行えました。
しかし、この動作をマクロの記録でコードを入手し、コマンドボタンを配して動作させると、デバッグになります。(矢印のコードが黄色くなります)
Private Sub CommandButton1_Click()
Sheet1.Select
Range("B3:BM126").Select ← ココです。
Selection.Copy
ActiveWindow.SmallScroll Down:=120
Range("B150").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A1").Select
End Sub
どの様な修正でクリアできるかご教授願います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
Cellsのかっこの中はどっちが行...
-
URLのリンク切れをマクロを使っ...
-
【Excel VBA】 B列に特定の文字...
-
データグリッドビューの一番最...
-
vba 2つの条件が一致したら...
-
VBAで指定範囲内の空白セルを左...
-
VBAで、特定の文字より後を削除...
-
マクロについて。S列の途中から...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
rowsとcolsの意味
-
【Excel VBA】カンマと改行コー...
-
Changeイベントでの複数セルの...
-
Excel VBA:エクセルのマクロで...
-
ExcelVBAでテキストルーレット...
-
VBAコンボボックスで選択した値...
-
VBscriptでExcel sheetの並び替...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
【Excel VBA】 B列に特定の文字...
-
IIF関数の使い方
-
VBAのFind関数で結合セルを検索...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
Changeイベントでの複数セルの...
-
VBAを使って検索したセルをコピ...
-
VBA 何かしら文字が入っていたら
-
エクセルVBA intersect colu...
-
VBAでのリスト不一致抽出について
-
マクロ 最終列をコピーして最終...
-
VBAコンボボックスで選択した値...
-
複数の列の値を結合して別の列...
おすすめ情報