- 締切済み
Excel マクロ 特定の列のみカット&ペースト
imogasiの回答
- imogasi
- ベストアンサー率27% (4737/17068)
本件は、質問ではなく、コード作成依頼だよ。コード作成は一般に有料で業者に依頼してたのむもの。 本件は、ごく簡単なことなので付き合うが、なんでも善意で頼むと言うのは、勝手過ぎる。 ーー 上の行から1行ずつA列が山田次郎かどうか判別して、そうなら1行前の名前を山田次郎に変えれば仕舞ではないか。 こういうのをロジックといい、これの大切さを、VBAの作成経験が無いので判ってない初心者が多い。 上記のロジックでで十分かどうか質問者以外は良くわからない。情況を十分説明する能力もない人も多いから。 上記でよければ Sub test01() For i = 1 To 10 If Cells(i, "A") = "山田 次郎 " Then Cells(i - 1, "A") = "山田 次郎" End If Next i End Sub 何かスカみたいな内容だが、質問表現を再考して、質問に補足しては。 最終行の10(仮定したもの)をデータの実際の行数からとらえるのは Googleででも「エクセル vba 最終行 取得」で照会し、出てくる記事を読むこと。 ーー 上では次郎が、下では山田次郎になっていることの説明も必要では。
関連するQ&A
- エクセルの集計での質問
A列に日付、BからF列に担当者名(1~5)が入っています。 この表で誰が何日稼働したか調べたいのですが、日付の被りがあるのと、例えば▲▲さんが「担当者1」、●●さんが「担当者2」と決まっているわけでなく、早いもの順に「担当者1~5」までに名前が入っています。 A B C D E F 日 担1 担2 担3 担4 担5 1/3 太郎 次郎 花子 三郎 和子 1/3 次郎 太郎 三郎 美和 和子 1/4 花子 次郎 孝夫.......... この場合求められたものが 1/3 太郎 ×1、次郎 ×1、三郎×1、花子×1、和子×1 、美和×1 1/4 花子×1、次郎×1、孝夫×1 なので 太郎1日 次郎2日 三郎1日 花子2日 和子、美和、孝夫各1日 という風にエクセルで集計できないでしょうか?
- ベストアンサー
- その他(ビジネス・キャリア)
- 【エクセル】リストの照合について教えてください!!
sheet1に、下記の様に600件の氏名が書いてあります。 A B 1 山田太郎 2 鈴木花子 ・・・ 600 佐藤次郎 sheet2に、地域と氏名がずらっと書いてあります。 A B C D E 東京都 神奈川県 埼玉県 千葉県 茨城県 山田太郎 鈴木太郎 山田花子 佐藤次郎 ・・・ このsheet2の地域を、sheet1のC列に下記の様に入れたいのですが、 どの様に行ったら良いでしょうか? みなさんのお知恵をください!!宜しくお願い致します。 A B C 1 山田太郎 東京都 2 鈴木花子 神奈川県 ・・・ 600 佐藤次郎 埼玉県
- 締切済み
- オフィス系ソフト
- Excelのセル内容の分割について
以下のようにセルA1では家族の名前が”・”で区切られて入力してあり、セルB1ではそれに伴う”備考”が記入してあります。 A1 | B1 山田太郎・花子・次郎・三郎 | 備考文書 以上のような形式を一括で以下のように行を挿入し分割したいと考えています。 *備考は全てB1をコピーしたい。 山田太郎 | 備考文書 山田花子 | 備考文書 山田次郎 | 備考文書 山田三郎 | 備考文書 分かり難い説明で申し訳ありませんが宜しく御願い致します。
- ベストアンサー
- その他MS Office製品
- エクセルで文字列を数えて一覧表にしたいのですが
たとえばですが、2人一組で配達に行きます。 メンバーは、太郎、次郎、三郎、四郎、五郎・・・と多人数です。 A1に太郎、B1に三郎 A2に次郎、B2に五郎 A3に太郎、B3に次郎 ・ ・ ・ と、いうような表ができます。 このとき、*郎は何回配達にいったのかをカウントしたいのです。 *郎は、A、Bのどちらに登場するかわかりませんし、 何回も登場しますし、組み合わせもばらばらです。 最終的に、太郎 15回、次郎 8回、三郎 21回・・・というように分かるようにしたいので、 仮にD1に太郎、E1に次郎、F1に三郎・・・の名前 (ダブって登場する名前を一つにまとめて、登場する全ての名前を残したい)、 D2に太郎、E2次郎、F2に三郎の回数(登場した名前の回数を数字で求めたい) というようにしたいのです。 エクセルの詳しい方、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロかエクセル関数教えて下さい。
エクセルマクロ及び関数式で教えていただけないでしょうか? 月 火 水 木 金 太郎 ○ 花子 ○ 一郎 ○ 次郎 ○ 三郎 ○ 担当者名 太郎 一郎 三郎 花子 次郎 このように、丸が入ると担当欄のセルに「担当者名:月は太郎、火は一郎‥」を自動表示させたい。 1.そのセルに関数式 2.マクロ(サンプル) を、ご教授してくださる方が、おられましたら宜しくお願い致します。 これでご覧になれますでしょうか? ↓ http://firestorage.jp/download/37abd45beb74cb129a16bd3a92042647c013... 宜しくお願い致します。
- ベストアンサー
- その他(データベース)
- エクセル:マクロでこんなことはできますか?
【シート1】に名簿があります。 1 山田太郎 | ○○市○○町 | 電話 ・・・・ 2 山田花子 | ○△市 |・・・ といった一般的なものです。 【シート2】は、データ入力用としています。 A2~A4の3つを結合し、シート1から”山田太郎”を参照(INDIRECT関数使用) A5~A7の3つを結合し、同様に山田花子を参照 B2,B3.B4、C2,C3,C4は必要データを入力しています。 ★やりたいこと 【シート1】の山田太郎(1行すべて)を削除したときに、 【シート2】の2~4行に入っている山田太郎さんに関するシートを自動的に削除したい。 以上です、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- リンク貼り付けをマクロで簡素化したい
1)個人票ブック(太郎シート 花子シート 次郎シー・・・・・)の各シートのA1からA5まで、値や公式がはいっています。 2)このシートのA1からA5までの値等を、別の総括表ブック(一枚のシートしかない)にリンク貼り付けをします。 3)まず、太郎シートのA1~A5までは、総括表ブックのB列にリンク貼り付けするマクロボタンを、太郎シートに設置します。 4)さらに、花子シートのA1~A5までは、総括表ブックのC列にリンク貼り付けするマクロボタンを、花子シートに設置します。 5)そして、次郎シートのA1~A5までは、総括表ブックのD列にリンク貼り付けするマクロボタンを、次郎シートに設置します。 6)こうしてマクロボタンを順次貼り付けていきます。 7)各シートの貼り付け場所は列に貼り付けていきますが、上から順番ではなく、任意に飛んでいますが、 各シートの行は、みな一律で同じ行です。 列は違っても皆おなじ行にリンク貼り付けしたいです。 このような操作をマクロ記録でつくりましたが、膨大な作業が必要です。これをなんとかVBAで簡素化したいのですが・・よろしくお願いします。
- 締切済み
- Visual Basic
- 複数の検索文字を列から集めるエクセルマクロ
ある特定の名前が混在して大量にある下のようなリストがあります。 A B C D 1 山田太郎 08/30 もも 桃太郎 2 桜井花子 08/09 苺 栃乙女 3 山田太郎 08/08 苺 あまおう 4 山田太郎 08/07 ナシ 20世紀 5 佐藤純一 07/20 林檎 青森の 2 桜井花子 07/09 ナシ 20世紀 現在、このA列の名前を選択してボタンをクリックすると その名前がある行を集計して テキスト出力するマクロを使っています。 ただ、なにせ大量の名前があり、 定期的に更新され名前も増えます。 名前順に並べ替えをしてから、出力するにしても非常にたいへんです。 そこで、 (1)A列を検索して、名前のリストを作る (同姓同名はいないので、 A列に複数同じ名前があっても1つだけ表示させる) (2)そのリストを、順に選択し既存のマクロを動かす。 という(1)(2)の手順を自動化するマクロが作りたいのですが 色々検索したりして調べても 文字を指定して検出する例は結構あるのですが 検索文字を列から集める方法は見つかりませんでした。 もしかしたら、VBAでは非常に難しいのかもしれませんが 私は、その判断もまったくつかないほど無知ですので 何か解決法がありましたら どなたか、ご指導して頂けると幸いです。
- ベストアンサー
- オフィス系ソフト
- (マクロ)カット&ペーストを列毎に繰り返したい
下のように、A列から50列目までデータが入力されています。 各列、データは上から順に詰まっている状態です。 C列のように1つもデータが入力されていない列もあります。 ------------------------------------------ A列 B列 C列 D列 ・・・ Z001 Z003 Z004 Z002 Z005 ------------------------------------------ これを、「B列から順にデータをカットして、A列最終行の下にペーストする」という作業を、各列毎に50列目まで繰り返したいと思っています。 完成イメージは下記のようになります。 ------------------------------------------ A列 B列 C列 D列 ・・・ Z001 Z002 Z003 Z004 Z005 ------------------------------------------ 下記のようにマクロを組みましたが、無限ループになっているのか、強制終了となってしまいます。 どういうふうにマクロを組めばいいのでしょうか? 宜しくご教授お願いいたします。 Sub ADD() Dim i, j As Long For j = 2 To 50 '列番号指定 'B列1行目から順にセルが空白でなければカットする。 i = 1 Do While Cells(i, j).Value <> Empty Cells(i, j).Select Selection.Cut 'A列の最終行の1つ下の行に貼り付ける。。 Range("A1").Select Range(Selection, Selection.End(xlDown).Offset(1, 0)).Select ActiveSheet.Paste i = i + 1 Loop Next End Sub
- ベストアンサー
- オフィス系ソフト
- エクセル 特定セルの足し算をするマクロ
C列、D列、E列を足し合計をF列に記入するマクロを教えて下さい。 (3行目から値のある行まで。) A B C D E F 1 2 3 24 16 19 59となる様に 4 35 49 41 5 22 19 72 6 ・ ・ ・ 7 ・ ・ ・ 宜しくお願いします。
- 締切済み
- オフィス系ソフト