Name = "NewSheet" 抽出データ出力用のシート作成して、ws2として扱うようにします。 そしてws2のシート名をNewSheetとします。 プログラム6|列番号として使用する変数kを設定 Dim k As Long k = 1 プログラム13で、抽出先のシート(ws2)に列データを書き出していきます。 このデータの書き出しを行うとき、列番号を指定するのですが、その初期値を1としています。 k=1としているのは、A列(列番号1)から書き出しを行うためです。 プログラム7|最終行の行番号をcmaxとして設定 Dim cmax As Long cmax = ws1. Count 変数cmaxをws1の最終行の行番号を取得する変数として設定します。 上記のws1の最終行を取得できます。 ただし「対象シート. UsedRange」で取得できるセル範囲は、対象シートで[Ctrl] + [End]のショートカットキーを実行したときに選択されるセルとなります。 この事例ではデータは16行目までしか入っていませんが、[Ctrl] + [End]のショートカットキーでE18を選択しています。 よって18行目まで処理を行うことになります。 intで検証してみます。 intでの検証結果 Debug. Print ws1. Count >>> 18 プログラム8|変数設定 Dim rng As Range Dim keyword As Variant 変数を設定しています。 プログラム9|対象データを列ごとに処理 Dim i As Long For i = 1 To ws1. Count '(中略) Next 対象データのシート(ws1)を列ごとに処理していきます。 上記のws1の最終列を取得できます。 Debug. エクセルマクロVBA｜特定の文字列を含む列のみ別シート抽出. Count >>> 6 UsedRangeの仕様上、6列目(F列)まで取得します。このときF列は空欄ですが、VBAの処理は実行されます。 しかし大きな影響はないため、特に問題なしとして進めています。 プログラム10|各列の範囲を取得 Set rng = ws1. Offset ( 0, i - 1) 対象データのシート(ws1)の各列の範囲をrngとして取得します。 以下のように記述しても同じ処理を実行できます Set rng = (cells(1, i), cells(cmax, i)) Rangeとoffsetを使った場合と、RangeとCellsを使った場合がありますが、どちらでも処理は実行されるので馴染みの方法を選択すればよいです。 プログラム11|プログラム2のキーワードを全て取得 For Each keyword In Split ( keywords, ", ") '(中略) Next プログラム2で入力したkeywordsを「, 」で区切って、繰り返し処理を行います。 ここでは「keywords=ID, 取引金額」なので、intで検証すると以下のようになります。 For Each keyword In Split ( keywords, ", ") Debug.
2015/7/29 2016/12/29 Excel COUNTIF関数で特定の文字「で始まる/で終わる/を含む」を数える方法を学習します。 COUNTIF関数の書式は =COUNTIF(範囲, 検索条件) となります。基本的な使い方に関しては別記事[ 関数で特定の文字のセルを数える]をご参照ください。 ここでは[検索条件]において「で始まる/で終わる/を含む」を指定してみます。 「ワイルドカード・ * 」を有効に使います。 ワイルドカード 「 * 」は「 何が何文字入ってもよし 」とされる特殊な文字列です(何もなくてもよい)。 「 ワイルドカード 」と呼びます。 もう1つ「? 」もワイルドカードになりますが、こちらは「 何が入ってもよしとするが1文字に限る 」特殊文字列となります。 これを使って以下のようなあいまい検索の設定が可能になります。 文字データ・ワイルドカードは「 " 」で囲みます。 「橋」で始まる・・・"橋*" 「橋」で終わる・・・"*橋" 「橋」を含む・・・"*橋*" また「橋」のようなキーワードではなくセルを指定することも可能です。たとえばセルB2を使うと B2で始まる・・・B2 & "*" B2で終わる・・・"*" & B2 B2を含む・・・"*" & B2 & "*" となります。セルは「 " 」の外部にセットする必要があります。 そして文字列とセルは「 & 」で連結する必要があります。 さて以下の表においてB列に[「 崎」を含む 】セルの数をセルE2に算出します。 [範囲]は「B2:B8」、[検索条件]は「"*崎*"」となります。 したがって以下の計算式になります。 =COUNTIF(B2:B8, "*崎*") 次はセルF2に[セルD2の文字を含む]セルの数を算出します。 [D2を含む]は「 "*" &D2 & "*" 」となります。したがって =COUNTIF(B2:B8, "*"&D2&"*") の計算式を作成します。 完成サンプルファイルのダウンロード
Print keyword Next >>> ID >>> 取引金額 このようにプログラム2で入力したkeywordsを「, 」で区切って、繰り返し処理を行うことができます。 なお「aaa, bbb, ccc」のように3つの文字列はもちろん、「, 」でつなげば大量の文字列を対象にできます。 プログラム12|各行にキーワードを含むセルがあれば If Not rng. Columns ( k)) k = k + 1 Exit For End If プログラム10で設定したrng(各行のセルデータ)に対して、プログラム2で入力したキーワードが含まれているかどうかをチェックします。 If Not (keyword) Is Nothing Then これで「各行データ(rng)に、対象文字列(keyword)が含まれていないことがなければ」という意味です。 NotとNothingを使っているため、二重否定になっているため、対象文字列(keyword)のセルが存在すれば、プログラム13が実行されます。 対象文字列の完全一致か部分一致か? このプログラムでは、対象文字列と完全一致するセルが存在すれば、その列を別シートへ抽出します。 完全一致 しかし部分一致(セル内の対象文字列が含まれている)でも、その列を別シートへ抽出したい場合もあります。 その場合は以下のように記述します。 部分一致 If Not (keyword, Lookat:=xlPart) Is Nothing Then 上記のとおり、「Lookat:=xlPart」を追加で記述します。これで部分一致も対象になります。 作成したいプログラムによって、完全一致と部分一致を使い分けると、作成できるプログラムの幅が広がります。 プログラム13|キーワードを含む列を抽出用シートへ出力 ws1.
質問日時: 2017/03/11 11:10 回答数: 6 件 関数初心です。 画像のように、例えば★を含むセルの文字全てを抽出する方法をどなたかご教示いただけませんでしょうか? もう少し詳しくいうと、A列で★を含むセルの文字である「★バナナ」と「★レモン」を抽出する、という場合です。 どうぞ、よろしくお願いいたします。 No. 4 ベストアンサー 回答者: siffon9 回答日時: 2017/03/11 13:03 B2 に以下を入れます(配列数式なのでCtrl+Shift+Enterで入力) =IFERROR(INDEX($A$2:$A$7, SMALL(IF(LEFT($A$2:$A$7, 1)="★", ROW($A$2:$A$7), 10000), ROW(A2)-1)-1), "") あとは下へ向けてフィルドラッグです。 0 件 No. 6 tom04 回答日時: 2017/03/11 18:14 こんばんは! No. 4さんとほとんど同じやり方ですが・・・ B2セルに =IFERROR(INDEX(A$1:A$1000, SMALL(IF(ISNUMBER(FIND("★", A$1:A$1000)), ROW(A$1:A$1000)), ROW(A1))), "") 配列数式なのでCtrl+Shift+Enterで確定! B2セルのフィルハンドルで下へコピーしてみてください。 ※ 「★」がどこに含まれていても大丈夫です。m(_ _)m No. 5 yuji3690 回答日時: 2017/03/11 13:32 A列の左にIDを入れる列を挿入します。 A列:ID、B列:名称、C列抽出結果となります。 A2=IF(LEFT(A2, 1)="★", MAX(A$1:A1)+1, "") これを必要なだけ(例の場合A3~A7に)コピーします。 これで名称が★から始まっていれば、そのA列にIDが振られるようになりました。 C2=IF(ROW()-1>MAX(A:A), "", VLOOKUP(ROW()-1, A:B, 2, FALSE)) これを必要なだけ(例の場合最大でC3~C7、★の数の上限が分かっていればそこまででもよい)コピーします。 2行目を1つめとしているので、ROW()-1を使います。★の数を超えた場合は空白を表示するようになっています。 No.
役に立ちませんでした。 素晴らしい! フィードバックをありがとうございました。 この回答にどの程度満足ですか? フィードバックをありがとうございました。おかげで、サイトの改善に役立ちます。 フィードバックをありがとうございました。
3 t_fumiaki 回答日時: 2017/03/11 12:28 文字列のどこに入っていても見つけるなら =IF(COUNTIF(A2, "*★*"), A2, "") B列に結果だけを並べるにはVBAが必要。C列にフィルタ掛けてコピーし、フィルタ外してペーストした方が早い。 No. 2 yokomaya 回答日時: 2017/03/11 12:19 こういった表にはタイトルをA1に付けるのが普通で データ→フィルター→詳細設定で多様な処理が可能ですが それがない場合、簡単には A2選択でデータ→フィルター でオートフィルターかけて A2右の▼クリックでテキストフィルター→ 指定の値を含むで★を指定 出たのをコピー フィルターを解除すればどこにでも貼り付け可。 ただA2列が勝手にタイトルとみなされるので やっぱタイトル入れるのが妥当かな。 商品か作物か判らないけどA1に。 No. 1 TH69 回答日時: 2017/03/11 11:57 これでどうでしょうか? 抽出先の列に =IF(LEFT(A2, 1)="★", A2, "") と入れて下へドラッグ この回答へのお礼 早速のご回答ありがとうございます! 灯台下暗しとはこのことでしょうか。この方法は思いつきませんでした。 SimpleisBestですね!ありがとうございます! お礼日時:2017/03/11 12:05 お探しのQ&Aが見つからない時は、教えて! gooで質問しましょう! このQ&Aを見た人はこんなQ&Aも見ています
Add ( after: = ws1) ws2. Name = "NewSheet" 'プログラム6|列番号として使用する変数kを設定 Dim k As Long k = 1 'プログラム7|最終行の行番号をcmaxとして設定 Dim cmax As Long cmax = ws1. UsedRange. Rows. Count 'プログラム8|変数設定 Dim rng As Range Dim keyword As Variant 'プログラム9|対象データを列ごとに処理 Dim i As Long For i = 1 To ws1. Columns. Count 'プログラム10|全ての列を列ごとに取得 Set rng = ws1. Range ( "A1:A" & cmax). Offset ( 0, i - 1) 'Set rng = (cells(1, i), cells(cmax, i)) Debug. Print rng. Address 'プログラム11|プログラム2のキーワードを全て取得 For Each keyword In Split ( keywords, ", ") 'プログラム12|各列にキーワードを含むセルがあれば If Not rng. Find ( keyword) Is Nothing Then 'プログラム13|キーワードを含む列を抽出用シートへ出力 ws1. Columns ( i). Copy ( ws2.
Question 気になる質問の「知りたい!」ボタンを押したらby themの専門家が答えてくれるかも? #モテ これまで「意味がなかったな」と思う恋愛テクニックはありますか? 23 件 知りたい! Q #パートナー #プロポーズ 高校生のころに付き合っていた元彼とヨリを戻して3年。私は結婚したいのですが、まったくそんな話になりません。まわりの友達が結婚していき、正直焦っています。でも、自分から「結婚どうする?」とはなかなかいい出せません。彼から結婚話を切り出させる方法があれば教えてください。 21 件 知りたい! #オトナ磨き #ライフ 恋人がいない状況に耐えられず、好きでもない男性と関係を持ったり付き合ってしまう私。そんな自分が本当に嫌いです。どうしたらひとりでいられる自分、シングルの時間を楽しめる自分になれるでしょうか? 26 件 知りたい! #オトナ磨き #ライフ 職場の飲み会で泥酔してしまいました。途中から記憶がなく、何をしゃべったか覚えていません。その後、周囲の目線が冷たいような、哀れむようなものに変わりました…。おそらく、表面上は仲良くしている同僚の女性(かわいくて人気がある)に対する嫉妬心丸出しの発言をしたのだと思います。仕事は好きなので辞めたくありません。どうすればよいでしょうか? 寂しかった…♡女性が彼に「抱きしめてほしい瞬間」4つ - モデルプレス. 16 件 知りたい! #パートナー #ライフ 彼氏に愛されていることはわかっているのに、どうにも自分に自信が持てなかったり、疑ってしまったりします。気持ちが安定しているときもありますが、その気持ちが長く続かず、占いの結果で自信をなくしたりしてしまいます。ポジティブな気持ちが持続する方法はありますか?また、本当に彼氏から愛されている確信を得るにはどういうところをみていけばよいでしょうか? 34 件 知りたい! #HOW TO #モテ 私には社内に大好きな人がいるのですが、その人にアピールをしてもなかなか響かず、何とも思ってない数人からアプローチされます。気持ちは嬉しいのですが私が付き合いたいのは彼だけです。彼からアプローチされるにはどうしたらいいでしょう?ほかの人からのメールやアプローチを受けても虚しくなるので、無視してもいいでしょうか? 17 件 知りたい! #パートナー #結婚 今度、彼のご実家に初めて伺います。ご両親に好印象を与えるための作法などがございましたら教えてください。 36 件 知りたい!
関連リンク キュン死する!男なら覚えておきたい「女を惚れさせる言動」4つ 私の理解者です♡女性にモテる「共感する力」の育て方 【女性に聞いた】思わず惚れそうになった「男性の言動」って? 関連記事 恋愛jp SBC メディカルグループ 「コラム」カテゴリーの最新記事 愛カツ lamire〈ラミレ〉 恋愛jp
「ハグして欲しいのを察して欲しい!」……と思っているだけでは、なかなかハグは訪れません。 紹介した例を参考に、可愛くおねだりして彼をキュンキュンさせちゃいましょう♡ ふたりの愛を確かめるのに欠かせないハグ。 一層ラブラブになるために、あなたのほうからアクションを起こしてみてくださいね。 (愛カツ編集部)
#パートナー #結婚 結婚のタイミングや子どもの有無など、彼と将来に対する価値観が合いません。結婚してもうまくいかないのでしょうか。 49 件 知りたい! #オトナ磨き #ライフ 自分で自分のことを「空気が読めない人間だ」と思っています。また変なことを言ってしまうのでは?場を凍りつかせてしまうのでは?と、人付き合いをすること、人と接することが怖くて仕方がありません。どうすればもっと空気を読むことができるようになるのでしょうか? 45 件 知りたい! #パートナー 彼からのLINEの連絡が遅いです(私もつられて遅くなりました)。このくらいがちょうどいいかと納得しつつ、もしかして面倒なのかなと気になってしまいます。ちなみに付き合う前や付き合いたての頃もそんな感じでした…。 #デート #パートナー 年下の男性を好きになってしまいました。彼は会社の後輩で、私とは11個、歳の差があります。年下ですが営業成績もよく、私の悩み相談に乗ってくれたことがきっかけで一度だけごはんにいったのですが、そのあと進展がありません。11も上の女性からアプローチされたら迷惑でしょうか?迷惑ではないとしたら、どんなアプローチをされたら、キュンときますか? 30 件 知りたい! #HOW TO #ライフ 私の夫と子どもはHSP・HSCです。また会社の部下や同僚のなかにもHSPなのではないかと思う繊細な方がいます。彼ら、彼女らと接するうえで気をつけた方がよいことがあれば教えてください。 48 件 知りたい! 抱きしめてほしい女性心理9つ！ハグのお願いの仕方＆言えない時の対処法 - 男性・女性心理 - noel(ノエル)｜取り入れたくなる素敵が見つかる、女性のためのwebマガジン. #オトナ磨き #パートナー 私はHSPです。すぐに彼氏に依存し、尽くしすぎて「しんどい」と感じる交際をしてしまいます。依存しないための改善方法はありますか?このような相手とならうまくいくのでは、といったアドバイスもいただきたいです。 77 件 知りたい! #コン活 #失恋 40代のこじらせ女子です。結婚相談所や婚活パーティー、アプリ、合コンなどで出会った男性とデートを重ねててきましたが、30歳のときに円満に別れた元彼が忘れられません。お互い恋人はおらず、連絡はたまに取るのですが、復縁のアドバイスをいただきたいです。 62 件 知りたい! #コン活 #パートナー 年下の彼と交際2年。人並みに交際してきましたが、「こんなに合う人はいない」と思うほど彼が好きで居心地がよいです。いずれ結婚を…という話は出ており、私たちのペースで少しずつ進んでいる気はするのですが、私が20代後半ということもあり周囲の結婚ラッシュに焦り、不安になる日もあります。 61 件 知りたい!
って言ったりしてました。 今でもしてます。 30歳です。 他人に依存するのは危険です。 これを機に、1人でしっかり立てるようになりましょう。
その他の回答(6件) 26歳の女です。 別にあなたはおかしくも特別でもないと思いますよ。 大人になっても甘えたいし、ひと肌は癒されるものです。 私も母親や彼氏にはひっついて甘えたい~と思うことも多いですよ。 なんでしょうね、うずうずするというか…体がひっつきたくなるというか。 そういう時は、本能にまかせて、向こうの気持ちは聞かずにべた~っとします。 母親は「何やってんの~」と苦笑しながらも、やりたいようにさせてくれますし、 彼氏も苦笑しながらも可愛いと思ってくれているみたいです。 まあ、場所は選びますが…。 普段、周囲からはクールだと思われているような私ですが、そういう面があるのは あんまり隠しません。 友人などは冗談だと思っているようですが…。 ギャップがあるのって可愛いじゃないか~と自分で思っているので。 まだ23歳なのですから、遠慮しなくていいと思います。 肌のふれあいは、ささいなわだかまりを吹き飛ばしてくれるものでは? 無心になって抱きつけば、相手もきっと抱きしめ返してくれますよ。 19歳女です。 別に言えば良いんではないですか? 残念ながら彼氏に関しては良いアドバイスできませんが、あたしも最近人に頼りがちになってしまい、 女の友達とかなら普通にハグしてます。 やはり人は一人では生きていけないんです。 誰かを頼りたくなるときもある、そんなの当たり前です。 親だったら「いつまでも甘えるんじゃないの」と言われるかもしれませんが、 彼氏がいるなら彼氏を頼ればいいではないですか? 男性が「キュンキュンしちゃう」可愛いハグのおねだり方法 - 趣味女子を応援するメディア「めるも」. 恋人とは、お互いが頼り頼られあう関係だと、私は思いますけどね。 そんな我慢する意味あるんですか? 1人 がナイス!しています 20代が過去になってしまった男性です^^; 若い頃はそういうのありましたね。 なんか誰かの力に頼って「充電したい」という気持ち。 それができないときは、私は汗を流しました。 気軽にウォーキング♪ という感じではなく、かなりハードに自分を追い込んで、へろへろになるまで。 やっているときは全てが忘れられるし、やり終わった後は、へろへろで筋肉痛 みたいになりかけているのだけれど、なんかちょっと心地よくて^^ 20代後半からは、海に行きました。 車飛ばして、夜の海でボーーーと。 端から見れば、そのまま海に沈んでいくんじゃないかと思われていたかも?w 夜の海や星が好きなので、今はそこから力もらってますね^^ 貴女も何か代わりになる物を探して、頑張ってください。 ありますよ。 心が疲れたときって、誰かにぎゅっとしてもらいたくなるもんです。 そんなとき私は、 お母さんにベタベタしたり、お父さんに甘えたり、彼にぎゅってして?
トップページ > コラム > コラム > 寂しかった…♡女性が彼に「抱きしめてほしい瞬間」4つ 寂しかった…♡女性が彼に「抱きしめてほしい瞬間」4つ 女性はどんな時に彼氏に抱きしめてほしいかご存知ですか? 自分から「ハグしてほしいな」と言えない女性もいますので、女性がどんなときに抱きしめてほしくなるのか知っておきましょう。 今回は、女性が彼に抱きしめてほしい瞬間を4つご紹介します。 それだけは愛せない…!女性が嫌う「男性の下品な態度」とは もう、ズルいよ…♡女子がメロメロになる「男性のさりげない言動」 あの頃の感情復活♡「彼女が惚れ直す」セリフって?