
No.2ベストアンサー
- 回答日時:
こんにちは!
元データに手を加えるのではなく、別Sheetに11列ごとコピー&ペーストではどうでしょうか?
仮にSheet1のデータをSheet2にコピー&ペーストする一例です。
Alt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub Sample1() 'この行から
Dim j As Long, cnt As Long, wS1 As Worksheet, wS2 As Worksheet
Set wS1 = Worksheets("Sheet1")
Set wS2 = Worksheets("Sheet2")
For j = 11 To wS1.Cells(1, Columns.Count).End(xlToLeft).Column Step 11
cnt = cnt + 1
wS1.Columns(j).Copy wS2.Cells(1, cnt)
Next j
End Sub 'この行まで
※ 通常、行方向にデータがあることが多いのですが、
質問では「列」となっていますので、列方向で操作しています。
※ 1行目のデータ数で最終列を判断していますので、
1行目は項目等何らかのデータが入力されているという前提です。m(_ _)m
質問サイトを使ったことがなく、回答があるとメールに通知が来ると思っておりまして、お礼が遅くなりました。すぐに回答頂いたのに、申し訳ございません。おかげさまで処理がスムーズに出来るようになりました。ご説明が初心者の私には一番分かりやすかったのでベストアンサーにさせていただきました。ありがとうございました。
No.4
- 回答日時:
'見出しの文字列で判断できれば、、、
Option Explicit
Sub Samplling()
Const xSelect_Del = "Fast sampling" '削除したい列の見出し
Const xHead = 1 '見出しの行
Dim xCol_Left As Long
Dim xCol_Right As Long
Dim kk As Long
With ActiveSheet.UsedRange
xCol_Left = .Column
xCol_Right = .Columns(.Columns.Count).Column
For kk = xCol_Right To xCol_Left Step -1
If (Cells(xHead, kk).Value = xSelect_Del) Then
Columns(kk).Delete
End If
Next
End With
End Sub
質問サイトを使ったことがなく、回答があるとメールに通知が来ると思っておりまして、お礼が遅くなりました。すぐに回答頂いたのに、申し訳ございません。プログラミングのどこを改変すればよいのかが分からず、実行がかないませんでした。これから学んで行きたいと思います。ご教授ありがとうございました。
No.3
- 回答日時:
Sheet1 の 1列目から 10列削除して、11列目を残し、12列目から 10列削除して、22列目を残し・・・と周期的に Sheet2 に抽出する
Sheet2!A1!: =INDEX(Sheet1!1:1,11*COLUMN())
Sheet1 の 1行目から 10行削除して、11行目を残し、12行目から 10行削除して、22行目を残し・・・と周期的に Sheet2 に抽出する
Sheet2!A1: =INDEX(Sheet1!A:A,11*ROW())
質問サイトを使ったことがなく、回答があるとメールに通知が来ると思っておりまして、お礼が遅くなりました。すぐに回答頂いたのに、申し訳ございません。頂いた回答の中でもっともプログラミングがシンプルで、おそらく一番スマートな方法をご教授いただいたのだと思います。
No.1
- 回答日時:
手作業をそのままマクロに書き写すと、だいたいこんなカンジになります。
手順:
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける
sub macro1()
range("A1").select
start:
if selection.range("A1")="" then exit sub
selection.range("A:J").delete shift:=xlshifttoleft
selection.range("B1").select
goto start
end sub
ファイルメニューから終了してエクセルに戻る
データシートを開いてマクロを実行する。
#実際にはもうちょっと簡単には、新しいマクロの記録で
11列目、22列目、33列目…をコントロールキーを押しながら飛び飛びに最大限列選択しておき、コピーしてシート2のA1に貼り付ける
といったマクロを使うのでも、十分役に立ちます。
質問サイトを使ったことがなく、回答があるとメールに通知が来ると思っておりまして、お礼が遅くなりました。すぐに回答頂いたのに、申し訳ございません。丁寧なご説明、ありがとうございました。実際にプログラミングを動かしてみて、マクロの有用性を実感しました。勉強していきたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 指定した固有番号で、複数の行を削除する方法は? 2 2022/03/30 15:18
- Excel(エクセル) 特定のデータの抽出方法を教えてください@Excel 4 2023/06/13 18:38
- Excel(エクセル) Excel リンク先のエクセルファイルの削除 同時に行を削除したい 1 2022/11/29 16:20
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
- Excel(エクセル) VBA 指定した列にある日時データから時間を削除する方法について 4 2022/04/14 11:17
- Excel(エクセル) マクロか関数で処理したいのですが、教えて頂けませんか。 8 2022/10/31 15:18
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- iPhone(アイフォーン) 以前使っていたSIMカード抜いた状態のiPhoneの 写真アプリの中のデータを一括削除して 『最近削 2 2022/05/20 03:00
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
-
大麻の使用罪がなかった理由や法改正での変更点、他国との違いを弁護士が解説
ドイツで2024年4月に大麻が合法化され、その2ヶ月後にサッカーEURO2024が行われた。その際、ドイツ警察は大会運営における治安維持の一つの方針として「アルコールを飲んでいるグループと、大麻を吸っているグループ...
-
ピンとくる人とこない人の違いは?直感を鍛える方法を心理コンサルタントに聞いた!
根拠はないがなんとなくそう感じる……。そんな「直感がした」という経験がある人は少なくないだろう。ただ直感は目には見えず、具体的な説明が難しいこともあるため、その正体は理解しにくい。「教えて!goo」にも「...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで全ての数字間にカン...
-
Excel2007で、太字にした行のみ...
-
Excelで周期的に列を削除する方法
-
excel ある部分だけをコピペし...
-
エクセル2000でこんなマク...
-
エクセル:列の範囲選択をうま...
-
「マクロ」の足し算の式を教え...
-
エクセルで特定の数字となる組...
-
Excelで連続印刷をするマクロ
-
行の入れ替えってどうするの?
-
Excel(VBA)データ入力に応じて...
-
〈VBA〉 CSVデータの指定列を読...
-
マクロ オートフィルタ機能に...
-
カンマを自動的に挿入できますか?
-
セルに入れた値の行のブック転記
-
【マクロ】セル内のテキストを...
-
エクセルの複数シートの保護を...
-
[Excel]保護されたシートのマク...
-
前の(左隣の)シートを連続参...
-
別シート参照のセルをシート毎...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel2007で、太字にした行のみ...
-
条件に応じて特定の行を非表示...
-
Excel にて非表示行を探すワー...
-
excel ある部分だけをコピペし...
-
エクセル VBA 小数点を含む数字...
-
値貼り付けをしても書式も貼り...
-
「マクロ」の足し算の式を教え...
-
エクセルで全ての数字間にカン...
-
Excel(VBA)データ入力に応じて...
-
Excel2007 セルを右方向に削除...
-
wordのvbaでハイパーリンク設定...
-
Excelでセル内の数式は残し値だ...
-
エクセルで連番をマクロで
-
エクセルで特定の行を消して間...
-
エクセル オートフィルタの抽...
-
エクセルで特定の数字となる組...
-
行の入れ替えってどうするの?
-
昨日、エクセルVBAで、隣のセル...
-
エクセル2003でマクロをおこな...
-
【マクロ】セル内のテキストを...
おすすめ情報