
B列がところどころ結合されているデータがあります。
※ 結合されていない行もあります。
例として、B1~B4(4行)が結合されていた場合、
1行目から4行目までの範囲で列検索を行ないたいと思っています。
Dim i As Long
If Cells(i, "B").MergeCells Then
一部分のみですみません。
行検索を行ない、B列が結合セルだったら、
Rows(i)(1~4行目)の、「列単位」で検索し(列はD列以降が検索対象)、
D列(D1~D4)に一箇所でも「○」が入力されていたら、D1に「○」と入力し、
E列以降の列にも同じ処理を繰り返したいです。
いろいろ試してみたのですがうまくいきませんでした。
検索方法を教えていただけたら幸いです。よろしくお願いします。
No.3ベストアンサー
- 回答日時:
質問を読み違えていました。
ユーザ定義関数ではできませんので、マクロでの実装です。Sub sample()
Dim I As Long
Dim J As Long
Dim M As Long
Dim R As Range
I = 1
Do While I <= Cells.SpecialCells(xlCellTypeLastCell).Row
If Cells(I, "B").MergeCells Then
M = Cells(I, "B").MergeArea.Rows.Count
For J = 4 To Cells.SpecialCells(xlCellTypeLastCell).Column
Set R = Range(Cells(I, J), Cells(I + M - 1, J))
If WorksheetFunction.CountIf(R, "○") > 0 Then
Cells(I, J).Value = "○"
End If
Next J
I = I + M
Else
I = I + 1
End If
Loop
End Sub
ママチャリさんいつもありがとうございます。
実行してみたところ、列用変数Jの開始番号が4だとうまくいかず
4→1に変更したところ、うまくいきました。
これであっているのか若干不安です。。
No.4
- 回答日時:
変数Jは、最初にD列を指すので、4で良いはずなのですが…。
ちなみに、どこで、どんなエラーがでましたか?
できました!4でOKでした。
(さっきはなぜうまくいかなかったのか‥)
セル検索は基礎の基礎なのに、
プロパティがなかなか使いこなせません。
コードを熟読して、もっと勉強します。
本当にありがとうございました。
これからもよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでフィルタ後の条件付...
-
PowerPointで表の1つの列だけ...
-
エクセルで二つの数字の小さい...
-
エクセル(勝手に太字になる)
-
2つのエクセルのデータを同じよ...
-
エクセルの表から正の数、負の...
-
エクセルの項目軸を左寄せにしたい
-
エクセルで最初のスペースまで...
-
EXCELで 一桁の数値を二桁に
-
【エクセルの並び替え】末尾の...
-
エクセルで、列の空欄に隣の列...
-
Excel関数(通常はA列優先で、...
-
EXCELで cuontifやsubtot...
-
エクセルで文字が混じった数字...
-
VBAでセル入力の数式に変数を用...
-
エクセルのセル内の文字の一部...
-
Excel VBAで不一致なら空白セル...
-
お店に入るために行列に並んで...
-
【excelVBA】Findメソッドで検...
-
50人を数回、グループ分けする...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
2つのエクセルのデータを同じよ...
-
Excelで半角の文字を含むセルを...
-
EXCELで 一桁の数値を二桁に
-
エクセル(勝手に太字になる)
-
エクセル 文字数 多い順 並...
-
エクセルで最初のスペースまで...
-
オートフィルターをかけ、#N/A...
-
エクセル 同じ数字を他の列に自...
-
エクセル 同じ値を探して隣の...
-
「B列が日曜の場合」C列に/...
-
エクセルで文字が混じった数字...
-
Excel、市から登録している住所...
-
エクセルの項目軸を左寄せにしたい
-
Excel 文字列を結合するときに...
-
エクセルの表から正の数、負の...
-
【VBA】特定列に文字が入ってい...
-
エクセルで、列の空欄に隣の列...
-
オートフィルターの絞込みをし...
おすすめ情報
ユーザー定義関数でも大丈夫です。
できるだけシンプルな方が助かります。
よろしくお願いします。