• ベストアンサー

複数シートにある列を削除

yans11の回答

  • yans11
  • ベストアンサー率27% (14/51)
回答No.2

消えるだけならこれでできます。 Sub Macro1() For i = 1 To Worksheets.Count Worksheets(i).Select Columns("A:A").Select Selection.Delete Shift:=xlToLeft Next i End Sub マクロの記録をしながら勉強すると分かり易いですよ。 勿論、ヘルプも活用して下さいね。

smilepick
質問者

お礼

ありがとうございます。

この回答がついた質問に戻る
回答 全件
ベストアンサー
こんにちは。 以下のようにします。 -------------…
単純なものですが参考になれば幸いです。 Sub sample() …
シート名を1個1個入力してもいいのであればこれで。 Sheets…
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 複数のシートにまたがる列の削除について

    こんばんは、複数のシートを選択して特定の列を削除するVBAについて質問させてください。Sheet１とSheet２のA～C列を削除したく、以下のVBAを入力しましたが、削除されるのはSheet1のA～C列のみでSheet2に同様の処理が行われません。 手作業でやると複数のシートを選択のうえ列の削除ができるので、ＶＢＡでできないということはないと思うのですが、どのように記述すればよいのでしょうか・・・？！どなたかご教授よろしくお願いいたします！ Sheets(Array("Sheet1","Sheet2")).Select Range("A:C").Delete Shift:=xlToLeft

  • エクセル：複数シートの一括処理

    お世話になります。 エクセルで１つのブックに複数のシートがあります。 書式は同じですが行数がそれぞれ違います。 Ａ列で、データが入力されている一番下のセルの次の行から、エクセルの最終行である６５５３６行までの行を全て選択して「削除」をしたいのです。（行の削除）しかも全シート一括で。 Ａ列でデータが入っている一番下のセルがＡ５５０だった場合、５５１行～６５５３６行までを全て選択→削除を行う。 これらの作業をするためのマクロを教えてください。

  • 複数シートのコピーペースト（＋文字列の行削除）

    エクセルで、複数シートをまとめる作業をしているのですが、 幾つかの壁にあたりました。 1.複数シートのCD列コピー、FG列コピーし、他ブックのAB列に１列に貼り付けることができないでしょうか？ 複数シートを選択し、クリップボードにコピーし、全て貼り付けをしますが、 １シート分しか貼り付けできません。 もしできるならついでに、シート１のCDシート1のFG続いてシート2のCD、シート2のFGといった、 順番にしたいと考えています。 2.A列に数字と文字があるが、文字の行を削除したい。 　　A（列）B(列） 　コード　名前 　　１　　あ 　　２　　い 　　３　　う 　コード　名前 　　４　　え 　　５　　お 　　・ ・ ・ ・ 上図で、コードの行を削除したいのです。 ほかに分からないことは、こちらで検索し、解決したんですが、これらは見つからなかったので、お願いします。

  • エクセルで複数シートを一つにまとめる

    初心者です。 ブック内の複数シートを一つにまとめたくていろいろ調べています。 複数シートをもつブックがたくさんあるのでマクロか何かで簡単にできたら・・・と思っています。 http://it.kndb.jp/entry/show/id/1020のソースをコピーさせていただいたりもしたのですが、ダメでした。 きっとソースのどこかでブックを指定するなり個々に使用するために変える部分があるんだろうと思ってみたりしたのですが、どこを適応させればいいのかわかりません。 初心者でもわかるシートのまとめ方もしくはサイトがあれば教えてください。

  • 複数のワークシートから循環してペースト

    エクセルのマクロについて質問です。 複数のワークシートを循環して貼り付けれるマクロを作りたいのですが わかる方教えてください。 やりたいことは、sheet1のD列の3行目の数値を空白にまでコピーし、別ブックのsheet1のB列の4行にはりつけし 次にもとのブックのsheet2のD列の3行目の数値を空白にまでコピーし、別ブックのsheet2のB列の貼り付けた最後尾に貼り付けし また、もとのブックのsheet3のD列の3行目の数値を空白にまでコピーし、別ブックのsheet3のB列の貼り付けた最後尾に貼り付け という作業を循環してほしいです。 よろしくお願いします。

  • Excelで複数のシートの結合の仕方を教えて下さい

    複数(30)のブックにa、b、c・・・というシートがあり、a、b、c・・・シートはA列から始まっていて、A列に列見出しがあり、同じ列には同じ種類のデータが入力されている時に、複数のブックの各aシートを、新しく作ったブック31のyシートに結合するVBAを教えて下さい！！！ よろしくお願いします！！

  • 複数のブックのデータを1枚のシートにまとめるマクロ

    同じような質問は過去いくつかございますが、下記の条件を満たすことができず、 大変苦戦しております。 <条件> 1.フォルダ内すべてのエクセルで作成されたブックを、ブック名「全部」のsheet1に結合する。 2.結合するブックにはシートが複数あり、すべてのシートを結合するわけではなく、 　シート名「社員」の、指定した範囲内「a10:t100」を結合する。 3.ブック名「全部」のsheet1のa列には結合元のブック名を表示する。 ご教授いただければ幸いでございます。 どうかよろしくお願いいたします。

  • エクセル　複数シート検索のマクロ

    マクロ初心者です。 エクセルの文字列検索で、複数シートにまたがった場合のマクロ記述を知りたいです。 シートaとシートbの選択は下記となると思いますが、 Sub Macro1() Sheets(Array("a", "b")).Select Sheets("a").Activate End Sub その後で、検索窓（[ctrl]+[f]）を表示させたいのですが・・・。 よろしくご教示願います。

  • 複数のシートで同じ作業をしたい

    エクセルを使って文書をたくさん作っています。１つのブックに10くらいのシートがあって、セル幅を変えるとか、同じ文章を挿入するとかしたいときに、一括してすべてのシートに同じ作業をさせるにはどうしたらいいのでしょうか、エクセルの初心者でよくわかりません。マクロの記録を使ってやってみるのですが、うまくいきません。教えてください。 エクセル2002を使っています。

  • EXCELの複数シートをそれぞれ別ブックへ保存したい

    EXCEL97を使用しています。 1つのブック内に複数のシート（10～20枚）があります。 これを全て1シートずつの別のブックに分けて保存をするマクロを作成したいのですが、できますでしょうか？ できれば各シート内の(A4)に入力されている文字列を各ブックの名前として使用したいのですが・・・。 （各シートのセルA4の値に重複はありません） 現在は各シートを新しいブックにコピーして名前を付けて保存、の作業をシート数分繰り返しています。 すみませんがよろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する