- ベストアンサー
Excel VBAでセルの挿入・削除方法
- Excel VBAを使用して、指定したセルに挿入や削除を行う方法について質問です。
- 具体的には、別のセルで指定した場所にセルを挿入したり、削除したりしたい場合の方法について知りたいです。
- 例えば、A1セルに挿入したい場所やB1セルに削除したい場所を指定して、実行することでセルの操作を行いたいです。
- みんなの回答 (3)
- 専門家の回答
関連するQ&A
- エクセルマクロでのセルの削除、挿入
A1:G20の表があります、A1:G17にデータが入っています、20行目は合計欄です。 ここでデータ面の任意のセルをアクティブにしアクティプセルとその右のセル2個をマクロで削除し上に詰めます。(B5がアクティブだとB5、C5、D5が削除) 当然合計欄の当該列のセルが上に移動します。その為18行でセル挿入を行い20行目に合計が表示されるマクロの記載を教えてください。よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセルで文字列を数えて一覧表にしたいのですが
たとえばですが、2人一組で配達に行きます。 メンバーは、太郎、次郎、三郎、四郎、五郎・・・と多人数です。 A1に太郎、B1に三郎 A2に次郎、B2に五郎 A3に太郎、B3に次郎 ・ ・ ・ と、いうような表ができます。 このとき、*郎は何回配達にいったのかをカウントしたいのです。 *郎は、A、Bのどちらに登場するかわかりませんし、 何回も登場しますし、組み合わせもばらばらです。 最終的に、太郎 15回、次郎 8回、三郎 21回・・・というように分かるようにしたいので、 仮にD1に太郎、E1に次郎、F1に三郎・・・の名前 (ダブって登場する名前を一つにまとめて、登場する全ての名前を残したい)、 D2に太郎、E2次郎、F2に三郎の回数(登場した名前の回数を数字で求めたい) というようにしたいのです。 エクセルの詳しい方、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで複数VLOOKUP
お世話になります エクセルが3つあるとします下記 大阪方面.xls コード|太郎|次郎|三郎|四郎| 0111| 1| | | 1 | 0112| | 1| | | 0113| | 1| | | 0114| | | | | 京都方面.xls コード|田中|次郎|五郎|四郎| 0111| 2| | | 2 | 0112| | 1| | | 0113| | 3| | 1| 0114| 1| | | | 奈良方面.xls コード|田中|次郎|五郎|四郎| 0111| 2| | | 2 | 0112| | 1| | | 0113| | 3| | 1| 0114| 1| | | | 上記3件のエクセルをを合計させたいのですが ■問題点 *名前がランダムに入っている *名前の件数も決まっていない(セルのF20~BH20までのどれかに名前が入る)行数は1619です。 上記の内容からすべてに関数を入れるのは非常に重たくなりそう *エクセルファイルは3つとは限らない。 *エクセルファイル名が決まっていない ■やりたいこと VBAのフォームにテキストボックス(ファイル場所表示用)を設置しダイアログボックス呼び出し用ボタンを設置(10個ぐらい) 必要なxlsを指定し実行ボタンで下記のような計算をさせたいのが理想です。 合計.xls コード|太郎|次郎|三郎|四郎|田中|五郎| 0111| 1| | | 5| 4 | | 0112| | 4| | | | | 0113| | 7| | 2| | | 0114| | | | | 2 | | Win XP オフィース2003 わかる方ご教授願います。
- ベストアンサー
- オフィス系ソフト
- 【Excel VBA】コピー&ペーストの自動化
以下のエクセル表があり、同じ日付ごとのデータを自動的に別のシートに移したいです。 例えば、別のシートに、2004/1/1に書かれているデータのみを移す。(シート2参照) それをVBAで書くにはどうすればいいでしょうか。 マクロの記録をするのではなく、この表の日付を増やしたり変えたりしても機能するようにコードを書きたいと思っております。 For LoopとIf thenを使い、A1セルがそれより下のセルの値と異なるまでコピーし続ける、、といった作業をすればよいのでしょうか。 全くの初心者で勉強中です。よろしくお願いいたします。 列行 A B 1 2004/1/1 太郎 2 2004/1/1 次郎 3 2004/1/1 三郎 4 2004/1/1 一郎 5 2004/1/1 五郎 6 2005/3/3 三郎 7 2005/3/3 次郎 8 2005/3/3 太郎 9 2005/3/3 四朗 10 2006/2/2 次郎 11 2006/2/2 一郎 12 2006/2/2 太郎 シート2 2004/1/1 太郎 次郎 三郎 一郎 五郎 シート3 2005/3/3 三郎 次郎 太郎 四朗 シート4 2006/2/2 次郎 一郎 太郎
- 締切済み
- その他MS Office製品
- エクセル 入力済セル数のカウント
とある範囲のセル内になにかしらの入力がある(blankでない)場合。 “入力があるセル”数を数値として別セルに引用する方法はありますでしょうか。 例: A1 → [太郎] A2 → [次郎] A3 → [ ](空欄の意) B1 → 2 ※指定範囲内に、入力のあるセルが2つなので「2」 例: A1 → [太郎] A2 → [次郎] A3 → [三郎] B1 → 3 ※指定範囲内に、入力のあるセルが3つなので「3」
- ベストアンサー
- その他MS Office製品
- エクセルのマクロで全シ-ト複数条件検索
エクセルで全シートから複数項目で検索をかけ、条件に合う項目の行ごと 新しいシートに抽出結果として表示することは可能なのでしょうか。 初心者なりに考え、無様なコードではありますが、 検索条件が1つであれば、条件にあう行をすべて抽出することはできました。 ですが複数、または列ごと条件として指定することができず、難儀しております。 たとえば Sheet1 A B C D 1 田中太郎 男 穏やか 2 鈴木次郎 女 うっかり 3 山田三郎 女 怒りっぽい 4 佐藤四郎 男 せっかち Sheet2 A B C D 1 伊藤五郎 女 用心深い 2 加藤六郎 男 ずぼら 3 斎藤七郎 女 臆病 4 後藤八郎 男 陽気 Sheet3 A B C D 1 【条件】 2 加藤六郎 3 鈴木次郎 4 山田三郎 5 後藤八郎 マクロ実行後↓ 新しいシート A B C D 1 加藤六郎 男 ずぼら 2 鈴木次郎 女 うっかり 3 山田三郎 女 怒りっぽい 4 後藤八郎 男 陽気 といった具合にしたいと考えております。 この場合ですと、B列全体を条件としたり、 Sheet3の条件が入力されているセルすべてを検索条件として 渡すことはできるのでしょうか。 実際のシートでは、条件が10個~100個ほどあり、 シートごとに数はばらばらになっております。 どうかわかる方、お力をお貸しください。
- ベストアンサー
- Excel(エクセル)
- Excelのセル内容の分割について
以下のようにセルA1では家族の名前が”・”で区切られて入力してあり、セルB1ではそれに伴う”備考”が記入してあります。 A1 | B1 山田太郎・花子・次郎・三郎 | 備考文書 以上のような形式を一括で以下のように行を挿入し分割したいと考えています。 *備考は全てB1をコピーしたい。 山田太郎 | 備考文書 山田花子 | 備考文書 山田次郎 | 備考文書 山田三郎 | 備考文書 分かり難い説明で申し訳ありませんが宜しく御願い致します。
- ベストアンサー
- その他MS Office製品
- エクセルのマクロのセルの選択について
エクセルのマクロについて教えてください。 シート上にボタンを作ります。 そのボタンをクリックする前に適当にセルを範囲指定(アクティブ)に しておきます。 セルをアクティブにしたその状態で、ボタンをクリックすると、どこから どこまで範囲指定しているのかわかるようなマクロは作れるでしょうか? (1)たとえばB3からD10まで範囲指定しているときは、B3とD10のセルの場所 をひっぱってくるような... (2)あるいは cell(?1,?2) ←B3とD10の ?1 と ?2 の値を求めるような... できれば(1)のようなB3とD10のセルの場所が直接わかるようなマクロが現在考えています処理にあっているので、そのほうがいいと思っているのですが.. お忙しいところ申し訳ありませんが宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルで未入力のセルを印刷しない方法。
多人数の出欠表を作成しています。 出席者は○、欠席者は×をセルに入力していますが、○の人だけを印刷したいのです(未回答は未記入)。 例えば、 1 山田太郎 ○ 2 田中次郎 ←未回答 3 佐藤三郎 × 4 小林四郎 ○ 5 横田五郎 ○ この場合、表示は上記の通りでよいのですが、印刷する場合に、 出席と回答した1、4、5の人のみが印刷されるようにしたいのです。 ご存知の方がいらっしゃったら回答よろしくお願いします。
- ベストアンサー
- Windows XP
- 関数が含まれたセルの行をマクロで挿入する
セルD2には、IF関数が含まれている、以下の表があります。2行目に行をマクロで挿入して大きな表を作成する予定です。 A B C D 1 納入数 使用m数 納入m 使用m 2 〔=if(B2>1,C2,"")〕 マクロは、以下のようにして、2行目に行を挿入したのですが、IF文が含まれたものが 挿入できません。どのようなマクロ文にしたらよいかわからず困っています。別シートからコピーする 方法も考えられますが、同じシート内で収めたいと考えています。宜しくお願いします。 Sub 行挿入() ' ' 行挿入 Macro ' ' Range("a2:d2").Insert copyorigin:=xlFormatFromRightOrBelow End Sub
- ベストアンサー
- その他(業務ソフトウェア)
お礼
ありがとうございました! 悩みが解決しました。とても助かりました!