Modifying RegEx .Replace pattern

Hi Excel Forum,

I have a brilliant macro written by user Jindon which creates fill-in-the-blank sentences with Kanji in column 2. The problem I am having is this macro recognises ALL the kanji in column 2. I am having difficulty modifying this macro to replace just the kanji in each cell adjacent to each sentence.

The macro is as follows:

Please Login or Register  to view this content.

The current output:

Column A:

ニワトリの赤く立派なトサカは性別や種類を見分けるときに役立っていると考えられている
戦争するよりセックスしよう
この海は浅いから子どもも安心して泳げます。
彼女は服のセンスはいいが、体型がいまいちだ。

Column B:

性別
セックス
浅い
彼女

Column C:

ニワトリの__く立派なトサカは__や__類を見__けるときに役立っていると考えられている
__するより__しよう
この__は__から子どもも安心して泳げます。
__女は__のセンス__いが、__型がいまいちだ。


The desired output:

Column A:

ニワトリの赤く立派なトサカは性別や種類を見分けるときに役立っていると考えられている
戦争するよりセックスしよう
この海は浅いから子どもも安心して泳げます。
彼女は服のセンスはいいが、体型がいまいちだ。

Column B:

性別
セックス
浅い
彼女

Column C:

ニワトリの赤く立派なトサカは__や種類を見分けるときに役立っていると考えられている
戦争するより__しよう
この海は__から子どもも安心して泳げます。
__は服のセンスはいいが、体型がいまいちだ。


Any help resolving this is much appreciated!

That's simply impossible.
ニワトリの赤く立派なトサカは性別や種類を見分けるときに役立っていると考えられている

ニワトリの__く立派なトサカは__や__類を見__けるときに役立っていると考えられている

You are missing bold characters in col.B

Ah, I see what you mean Jindon. This is just a small snippet of the spreadsheet, which does indeed contain the bold kanji in column B.

In the original spreadsheet, there are 628 words in column B. Replacing every word from column B in each sentence results in fill-in-the-blank sentences such as "__司が__のお尻を__った翌__、__は会社を____休んだ。"

I am hoping that no matter how many words are in column B, only the word adjacent in column B is replaced from the sentence in column A.

The code is written like that, if it doesn't work as you expect, I need to see your workbook with the result that you wat.

I have manually changed the first 80 lines in column D to demonstrate the desired output.

Example.xlsm

Thank you very much for your assistance with this.

Thank you very much Jindon, this is working beautifully.

D4 was an error on my part and should have been "__十一ページの__ばんはクラスでします".

For context, I use these in Anki to test my recall of each word. I have the fill-in-the-blank sentence on the front with a picture to represent the concept and the complete sentence with furigana on the back along with other useful bits of information.

This is incredibly helpful, thank you.