Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11651 / 76734

←次へ　｜　前へ→


	【70615】Re:列で連続している値のカウント

kanabun - 11/12/6(火) 20:10 -


	引用なし

	パスワード

↑ちょっと説明を端折っちゃいましたけど、プログラムの途中（各セルを走査してDictionaryにキーと値を入れるところ）までの処理で、　　　　　 A B C りんご　　 ●●● ごりら　　 ●● らっぱ　　 ●●● つみき　　 ● ● くつした　 ● ● きんにく　　● たぶれっと　● ぱんつ　　　　● のような対応表ができあがります。「連続する2列以上」のアイテムというのが条件ですから、少なくとも"●●"という文字列が辞書の値の中にあるものということになります。たとえば最初の「りんご」のばあい > りんご　　 ●●● >　　j = InStr(zz, "●●") で"●●"の位置をさがすとj = 1(1文字目)が返ってきますので、 ●は　少なくとも2つあることになります。で3文字目はどうか調べ、3文字目も●なので、Countは　3 となります。 > ごりら　　 ●● のばあいは、3文字目はスペースなので　Count は 2 のままです。