abcd成语，成语abcd式的成语

利用正则判断四字成语的结构，如:AABB，成语abcd式的成语，ABAB，ABAC，ABCC，ABCD等.

ABCD型的成语有：魑魅魍魉、生死离别、爱恨情愁、伯仲叔季、男女老少、鳏寡孤独、悲欢离合。魑魅魍魉：chī mèi wǎng liǎng [释义] 原为古代传说中的鬼怪。指各种各样的坏人。[出处] 《左传·宣公三年》。

代码如下:

Sub 四字成语结构备注()

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

abcd的四字词语有很多，例如：望闻问切、假冒伪劣、亭台楼阁、酸甜苦辣、锅碗瓢盆、鸟兽虫鱼等等。成语是汉语词汇中定型的词。成语，众人皆说，成之于语，故成语。成语多为四字，亦有三字，五字甚至七字以上。

On Error Resume Next

Dim reg，arr

Set reg = CreateObject(&34;)

Dim rng，rngs As Range

Set rngs = Intersect(Sheet1.Range(&34;).CurrentRegion，ABCD式的词语100个，Sheet1.Range(&34;))

arr = rngs.Value

Range(&34;).ClearContents

arrReg = Array(&34;，_

&34;，_

&34;，_

&34;，_

abcd成语。

&34;，_

&34;，二年级ABCD成语，_

1。

&34;，_

&34;，_

&34;)

brrReg = Array(&34;，&34;，&34;，abcd的成语大全四字词语，&34;，ABCD词语大全1000个，&34;，ABCD式的成语有哪些，&34;，&34;，&34;，&34;)

For i = LBound(arrReg) To UBound(arrReg)

abcd的四字词语有很多，例如：望闻问切、假冒伪劣、亭台楼阁、酸甜苦辣、锅碗瓢盆、鸟兽虫鱼等等。成语是汉语词汇中定型的词。成语，众人皆说，成之于语，故成语。成语多为四字，亦有三字，五字甚至七字以上。

With reg

.Pattern = arrReg(i) &34;^(.)\1((?!\1).)(?!\2|\2).$"

.Global = True

abcd的四字词语有很多，例如：望闻问切、假冒伪劣、亭台楼阁、酸甜苦辣、锅碗瓢盆、鸟兽虫鱼等等。成语是汉语词汇中定型的词。成语，众人皆说，成之于语，故成语。成语多为四字，亦有三字，五字甚至七字以上。

.MultiLine = True

.ignorecase = True

For Each rng In rngs

abcd成语。

If .test(rng.Value) Then

ABCD表示四个字都不一样的成语:如兴高采烈、爱民如子、擦肩而过、指鹿为马等 建议度娘首页随意搜索既可 F。

rng.Offset(0，2) = brrReg(i)

End If

Next

End With

Next

Application.Calculation = xlCalculationAutomatic

Application.ScreenUpdating = True

End Sub