- ベストアンサー
VBAで打ち消し線の入った文字を特定する方法
hige_082の回答
- hige_082
- ベストアンサー率50% (379/747)
Sub Macro1() Dim i As Long For i = Range("d65536").End(xlUp).Row To 1 Step -1 If Cells(i, 4).Font.Strikethrough = True Then Cells(i, 4).EntireRow.Delete Next i End Sub 参考程度に
関連するQ&A
- VBAで色の付いているセルの行削除
VBAで色の付いているセルの行を削除することは出来ないでしょうか? 量が多すぎて一つ一つ削除すのは大変で間違えて削除してしまいそうなので・・・ - 文字または数字 ■ 色の付いたセル(赤) A B C D E F・・・ 1- - - - - - 2- - - - - - 3- - - ■ - - 4- - ■ - - - 5- - ■ - - - 6- - - - - - 7- - - ■ - - 8- - ■ - - - 9- - ■ - - - 10- - - - - - ↓ A B C D E F・・・ 1- - - - - - 2- - - - - - 6- - - - - - 10- - - - - - よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 【エクセル】特定の文字列(番号)の行だけ抽出したい
現在資料を作っていて、またもや困ったことがあったので教えてください。 特定の文字が含まれる行のデータを抽出するにはどうしたらいいのでしょうか。 具体的にいうと ____|A|B|C|D|E| [01]|F|1|0|3|5| [02]|G|0|2|5|7| [03]|H|0|3|4|8| 中略 [21]|F|0|0|9|6| [22]|G|6|4|5|1| [23]|H|3|3|2|2| 中略 [31]|F|2|2|4|6| [32]|G|5|3|7|9| [33]|H|8|2|6|4| 以下略 *[]の中身は行番号 一番上段のA B C D Eは列の軸 |はセルの区切りを示している のような表でGのBのところ(行番号が10n+2のところのA列)だけのデータを合計したいのです。 つまり上の表でいえば =A2+A22+A32+A42+A52…(=0+6+5+…)ということをしたいのですが 数が600行近くあるので手入力だとかなり面倒くさいのです。 SUM関数を使うのかなとも思いましたが、それでもセルの指定の面倒くささは変わらないし… 何か簡単にできるようにする方法がありましたらご教授お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル(マクロ) 特定セルのファイル間コピペ
マクロで下記内容の処理を行いたいと思っております。 どのようなコードにすればよいかご教授よろしくお願い致します。 1.A.xlsを開く 2.B.xlsを開く 3.B.xlsの特定セルの値をコピーする。(特定セルを仮にB4、C7、D9とする) 4.A.xlsのC列にあるファイル名リストから「B.xls」というファイル名の入ったセルを検索する。 5.仮に5行目に「B.xls」というファイル名があれば、同じ行にある特定列 (行は固定で、例えばE5、F5、G5とする)に3.でコピーしたB4、C7、D9の値を張り付ける。 ※B4はE列、C7はF列、D9はG列に対応するものとする 6.B.xlsを閉じる 7.C.xlsを開く 8.C.xlsの特定セルの値をコピーする。(特定セルはB.xlsと同じB4、C7、D9) 9.A.xlsのC列にあるファイル名リストから「C.xls」というファイル名の入ったセルを検索する。 10.仮に7行目に「C.xls」というファイル名があれば、同じ行にある特定列 (行は固定で、例えばE7、F7、G7とする)に8.でコピーしたB4、C7、D9の値を張り付ける。 ※B4はE列、C7はF列、D9はG列に対応するものとする 11.C.xlsを閉じる 12.D.xlsを開く 以下、同じ処理を繰り返す。
- 締切済み
- Visual Basic
- EXCELで改行しながら文字表示
セルB1に 「12345678(改行)ABCDEFGH(改行)abcdefgh(改行)09876543」 と表示させたいです。(文字列は例) 半角8文字単位で改行 表示させる元データは、 セルB5=C5&D5&E5&F5 C5=12345678(文字列) D5=ABCDEFGH(文字列) E5=ABCDEFGH(文字列) F5=09876543(文字列) 各々文字列が入力されないこともあります。 (文字が無ければ前詰めですが、できるだけ8文字単位にしたいので 半角スペースを入れたりします。) C5からF5を入力することにより、カーソルをB5にもっていくと 結果としてB1に表示させるというものです。 文字列は*5行のセルだけでなく、8000行くらいあります。 欲をいえば、カーソルがある行のセルB*を表示させることが できればベストです。 (例えば、F4000にカーソルがあれば、B4000の文字を表示する) 宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- 【VBA】特定の条件でセルをコピー
VBA初心者です 特定の条件を満たすセルの隣接する指定のセルをコピーして別のシートへ貼付けたいです 【sheet1】 A B C ~ F G 1 2 あ ~ 3 あり 2 1 い ~ 7 なし 3 2 う ~ 4 あり 5 3 え ~ 6 あり 6 2 お ~ 5 なし 7 1 か ~ 3 あり 8 3 き ~ 7 なし 9 2 く ~ 8 なし といったデータのうち、G列が「あり」の行の C~Fの値を別のシートへ以下のように貼り付けたいです 【sheet2】 A ~ D E あ ~ 3 _ う ~ 4 _ え ~ 6 _ か ~ 3 _ 全くの初心者です よろしくお願いします
- ベストアンサー
- Visual Basic
- エクセルVBA 特定文字以外の行削除など他
こんにちは。 エクセルのマクロについて質問です。 マクロ自体も初心者です。 画像のようなデータがあり、 マクロを使って実行後(赤枠で囲まれた)のようにマクロを組みたいです。 マクロを記録で手動でやってみたのですが、特定文字のある行以外を削除が できなく困っております。 手順としては、 (1)B列を削除 (2)1行目に行挿入 (3)B1とC1をセル結合 (4)D1とE1をセル結合 (5)1行目だけタイトルを入れます。 A1:送り状NO B1(C1):住所 D1(E1):お客様名 F1:到着日 G1:個口数 H1:案件 (6)添付画像のように「株式会社 ABC」の「ABC」を含んでいる行以外を削除 そして、可能であれば(7)として保存もしくは別名保存でxlsx形式で保存を行いたいです。 保存先は、実行前のデータが置いてある場所、もしくは、デスクトップでお願いしたいです。 補足:実行前のデータはxls形式のファイルです。 また可能であれば、マクロの実行をしている意味をコメントアウトで入れて頂けると 大変助かります。 周りに聞く人もおらず、困っております。 宜しくお願い致します。
- ベストアンサー
- Excel(エクセル)
- エクセルで特定の文字を見つけたら数値に変換したいで
セルに特定の文字を入力したら10と認識させたいのです。 たとえば、セルA1に数字でなく文字を入力すると隣のB1に10、C1も10、D1も10・・・というようにしてB1+C1+D1+E1でF1に合計の40が表示されるようにしたいのです。B1、C1、D1は空白にしたいです。A1の隣から10が発生するようにしたいのです。文字は『OPEN』という文字が入ってるときにそうさせたいのです。 説明がわかりづらいかもしれませんがどうぞよろしくお願いいたします。
- 締切済み
- その他MS Office製品
- 入力された●から●迄の空白をカウントする方法
どなたかご存じでしたらご回答よろしくお願いします。 【質問】 各列毎に●や▲が任意の数がある8行のセルがあります。 8行目の任意列に●を入力した場合、 そこから上に遡って●までの間の空白のセルを数える方法が知りたいです。 但し、▲も”空白の1つ”として数えます。 【入力】 A B C D E F G … 1 ● ● 2 ● ▲ ● ▲ 3 ▲ ● ▲ 4 5 6 7 8 ● ● ● 【結果】 A B C D E F G・・・ 6 6 4 0 0 0 0 ※結果の説明 A:8行目の●から上に数えて●迄の空白は6個。 B:8行目の●から上に数えて▲がありその上に空白と●があるが、▲を空白とみなして6個。 C:8行目の●から上に数えて最初の●迄の空白迄は4個。 D:8行目に●は無いため、空白は0個。 E:8行目に●は無いため、空白は0個。 F:8行目に●は無いため、空白は0個。 G:8行目に●は無いため、空白は0個。 使用するエクセルは2010です。 以上、よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- エクセルで空白セルを寄せたい
エクセル2002使用です VBAは使わずに関数だけで空白セルがあるセルを詰めて表示したいのですが・・・ A|B|C|D|E|F|G 1 あ い う え お か き 2 ○ ○ ○ ○ の表を A|B|C|D|E|F|G 1 あ う え か 2 ○ ○ ○ ○ のように表を書き換えたいのです。 1行目には必ず文字が入力されています。 2行目には入力されているセルと空白セルが不定期に入力されています。 2行目のセルが空白ならば、1行目のセルも削除して左へ詰めて 表を転記したいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル 特定の文字を含むセルを かえす
教えてください! 特定の文字を含むセルを返したいのです。 たとえば C1セルに 田中ゆうこ D1セルに 佐藤いちろう E1セルに 酒井みみ F1セルに 鈴木かなえ G1セルに 久保ごう こんな風に横に名前があるデータがあります。 A1セルに「鈴木」と入力したら C1~G1にある「鈴木」とつく名前を検索し、 該当したらB1セルに返したいのです。 この場合 B1セルに 「鈴木かなえ」と返ってほしいのですが どのようにしたら出来るのでしょうか? また、横列の名前の中に同名は存在しません。 どうぞ皆様の知恵をお貸しください! お願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
返答が遅くなりまして申し訳ありません。 回答ありがとうございます。 いくつかアドバイスを頂きましたので、試してみたいと思います。 まずはお礼をば。ありがとうございます。