A・B・C列があり、A列には連番を、B列にはVLOOKUP関数が入っており、
C列には、B列の検索値が入っております。
B列は下記のVBAコードで同じ値をセル結合させています。
Sub 結合()
Dim rngU As Range
Dim i As Range
Dim rngB As Range
Dim Key As String
Set rngB = Range("B2")
Set rngU = Range(Range("B3") _
, Range("B6000").End(xlUp).Offset(1))
Application.DisplayAlerts = False
For Each i In rngU
If Not i.Text = Key Then
If (Not i.Offset(-1) Is rngB) And _
(Not i Is rngB) Then
Range(rngB, i.Offset(-1)).MergeCells = True
End If
Set rngB = i
End If
Key = i.Text
Next i
Application.DisplayAlerts = True
End Sub
そこで、A:3から連番を振りたいのですが、B列の決まった特定の結合セルの
隣のA列のセルもB列の決まった特定の結合セルと同数にセル結合させ、
連番を1つとしてカウントしたいのです。
また、A列にはB列同様にVLOOKUP関数が入っており、連番を振りたくないセルには
印が付くようにしています。
行数やB列の決まった特定の結合セル番地はランダムに変わるため、B列の結合セルで参照させるしか
ないのかなっと思っております。
B列の特定の結合セルの値は決まっております。
上記のような処理を自動にさせるためのVBAが分かる方がいらっしゃいましたら、
是非ご教授お願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
昨日もこの質問を読んで、質問で何がしたいかつかみかねて、パスした。
今見ても答えが付いてない。判りにくいからではないですか?ーー
質問をVBAコードや自分が進行中のロジックなどから離れて、模擬実例を工夫して、ABC列にデータを入れて説明されることを望みます。
ーー
>B列にはVLOOKUP関数が入っており
>B列の検索値が入っております。
>VBAコードで同じ値をセル結合させています。
回答者に、コードの質問でなければ、VBAコードなどなるべく判読させないこと。質問者は苦労して作り上げたかもしれないが、言葉で書けば済むのではないか。
「B列で値が同じセルはセル結合している」ではどう?
ーー
B列の結合後の1セルの塊を単位として、A列に連番を振りたい?
上記コードの中では、同時にそれはできない事情があるのですか?
>A列にはB列同様にVLOOKUP関数が入っており、連番を振りたくないセルには印が付くようにしています。
A列に関数が既に入っていて、VBAで連番を振ると、関数は壊れてしまうが?なぜA列にVLOOKUP関数が入っているのか、そこになぜ連番を振るのか、状況がわからない。
ーー
>行数やB列の決まった特定の結合セル番地はランダムに変わるため、B列の結合セルで参照させるしかないのかなっと思っております。
B列の値などが動くと、瞬時に質問の処理をやり直すなど考えているのかな。バッチ作業性と瞬時作業(イベント型)性の区別はどうですか。
変わっても、この作業を再度する仕組みも考えられるが、それなら、それでよいのでは。
>特定の結合セルの値は
「特定の」がわかりにくい。「結合済みのセル」をみて、とか。
ーー
B列の結合済みのセルを見つつ(または質問上記のコードのロジックと同じものを使い)、A列に連番を振っては、都合が悪いのですか?
imogasiさん
ご指摘の通り、もう一度頭の中を整理して
再度質問させていただきます。
この度はご迷惑をおかけして申しわけありませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの入力規則で2列表示したい
-
複数の文字列のいずれかが含ま...
-
Excel上でのデータ数字が連番で...
-
SUMに含まれる範囲から特定のセ...
-
別のセルに値が入力されたら、...
-
スペースとスペースの間の文字...
-
数式が入ったセルを含めて、数...
-
列の数字に100をかけたい
-
入退社日より各月末の在籍者数...
-
エクセルで1列全部10倍したい
-
エクセルで表示されている数字...
-
エクセルでセルの値分の個数の...
-
HYPERLINKとADDRESSとMATCHの組...
-
エクセルで小数を含む数値の抽出
-
エクセル:横長の表を改行して...
-
EXCELのハイホン区切りの数字並...
-
エクセルで2行まとめて並び替...
-
エクセルで曜日に応じた文字を...
-
時間を「昼間」と「夜間」に分...
-
【EXCEL】指定したセルの値を他...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数の文字列のいずれかが含ま...
-
Excelの入力規則で2列表示したい
-
SUMに含まれる範囲から特定のセ...
-
数式が入ったセルを含めて、数...
-
Excel上でのデータ数字が連番で...
-
スペースとスペースの間の文字...
-
エクセル:横長の表を改行して...
-
エクセルでセルの値分の個数の...
-
列の数字に100をかけたい
-
エクセルで表示されている数字...
-
VBA 同一シート内での転記の仕方
-
別のセルに値が入力されたら、...
-
エクセルのsumifでかけ算してか...
-
エクセルで曜日に応じた文字を...
-
Excelのセル内文字の並び替えに...
-
入退社日より各月末の在籍者数...
-
HYPERLINKとADDRESSとMATCHの組...
-
エクセルで小数を含む数値の抽出
-
Excel 漢字二文字の先頭と最後 ...
-
エクセルにデータを入力すると...
おすすめ情報