[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『別シートでの1行置き条件分岐の結果を、連続行に反映させたいです。』(キキララ)
よろしくお願いいたします。
VBA学習中の者でございます、どうしても分からないコードがある為、
お知恵をお貸しください。
行いたい事でございますが、
異なる2つのシートがございまして、
例えば、"抽出ログ"というシートの
B2〜1行開けて、連続してログ情報が投入されている
セルが並んでおりまして、(※B2から1行おきにB100まで)
上から下に向けて条件分岐を適用させ、
1行おきにスペースが入っている連続したログ情報が入ったセルの
一番下に条件分岐で合致させたいキーワードを投入してあります。
※B101に合致させたいログ情報が入力
その(一番下のセルに投入された)セルのログに含まれていたら、
"別シート"の、今度はスペースが入っていない連続したセル行に、
結果を反映させたいです。
例えば、"一致" "不一致" といった具合にです。
For i = * To ** Step 2で1行おきに条件分岐を適用させるまではいけるのですが、
別シートへは、空白を入れずに連続した行セルに結果を反映させたい為、
そこで躓いております。
よろしくお願いいたします。
< 使用 Excel:Excel2019、使用 OS:Windows10 >
おはよ〜ございます ^^ >>別シートへは、空白を入れずに連続した行セルに結果を反映させたい為、 そこで躓いております。 から、推測させていただくと。。。別シートへ書き出す際の、行の指定に i、を使わずに、別途変数をご用意いただき、初期値をループ処理に入る 手前で書き出し開始行に設定後、ループの中で、書込むたびに1を加算し てみてはいかがでしょうか。 的外れでしたらお許しを。。。 ← 同じよ〜な事を私もよくやらかします ^^;
(隠居じーさん) 2020/02/12(水) 06:52
(もこな2) 2020/02/12(水) 07:13
>例えば、"一致" "不一致" といった具合にです。 意味が解らないです。 数式で参照したいということですか?
Match関数とか使えば一致するものしか一致しないので、
敢えて空白を意識する必要が無いと思うのですが。。。。
も少し詳しく作業の流れを説明してみては?
同様にそれに基づいてどのようにコードを書いてみた結果、
どのような意図しない動作になるか的な説明もあるといいかもです。
(まっつわん) 2020/02/12(水) 07:54
>"別シート"の、今度はスペースが入っていない連続したセル行に、 結果を反映させたいです。
ベタですが、End(xlUp)で任意の列の最終セルを求め、
Offsetで1行下に入力するとかはいかがでしょうか。
(tkit) 2020/02/12(水) 09:10
Sub test() Dim wsFrom As Worksheet: Set wsFrom = Worksheets(1) Dim wsTo As Worksheet: Set wsTo = Worksheets(2) Dim i As Long Dim j As Long
j = 2 For i = 2 To wsFrom.Cells(wsFrom.Rows.Count, "A").End(xlUp).Row Step 2 wsTo.Cells(j, 2).Value = _ IIf(wsTo.Cells(j, 1).Value = wsFrom.Cells(i, 1).Value, "一致", "不一致") j = j + 1 Next End Sub
もう一個行番号ようの変数を用意し、
数を数えたら(インクリメントといいます。)いいかと思います。
(まっつわん) 2020/02/12(水) 11:18
少し悩みましたが、うまくいきません。。。
できましたらブログにExcelの画像を
添付しましたので、具体的なセルを利用して
一からコードを教えていただけますと助かります
https://vbatestee.blogspot.com/2020/02/blog-post.html
(キキララ) 2020/02/13(木) 05:23
いずれにしても、あちこちで聞きまくるのは、
真剣に回答を考えてくれる人に失礼かと思いますよ。
(まっつわん) 2020/02/13(木) 07:56
ご提案いただいたみなさん、ありがとうございました★
(キキララ) 2020/02/13(木) 10:31
話がおわってるっぽいけどモーグは↓ですかね。
https://www.moug.net/faq/viewtopic.php?t=79104
こちらで言う話でもないですが、モーグは作成依頼は禁止されてるけど、マルチポストは言及してなかったような・・
>できましたらブログにExcelの画像を
>添付しましたので、具体的なセルを利用して
>一からコードを教えていただけますと助かります
ブログを一切見ていませんが(見る気もないですが)、モーグでも指摘されているように、まずは現状のコードを提示されるのが一番のように思います。
コードを見ることで、回答者側で問題の原因や躓いてるところの特定ができる場合があり、それが解決につながることもあります。
>いろいろ自分なりに、いじっていたら解決できました。
こちらのサイトでは、原則永久保存のはずですから、コードを提示されると、同じような悩みを持った方の解決につながるとおもいます。
また、コードに改善すべき点があれば、アドバイスを受けられる可能性もあるというメリットもあると思いますので、完成?したコードを提示してみてはどうでしょうか?
(もこな2) 2020/02/13(木) 22:29
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.