Excel VBA - 如果那么替换

Question

我是 VBA 的新手，而且我在 If-Then-Replace 上读了很多书，以至于我觉得自己很困惑。在我的工作表中，我有两列包含比我需要的更多的数据，我必须将其缩减以将其连接起来。

H 列（Header）的每个单元格中包含以下数据：网络：系列：剧集：数据

列 J (Header) 在每个单元格中包含以下数据：网络：类型：类型 2：类型 3

I 运行 a text-to-columns 将网络放在第 1 列，系列放在第 2 列。

我需要的是在 J 列中搜索 "specific network"。如果是这样，则替换 H 列中的网络。

问题：我是否还需要运行列 J 中的 text-to-columns 才能获得 1:1 比较？问题：你能帮我用 VBA 代码来执行 Find-If-Then-Replace?

非常感谢！

Answer 1

这应该可以满足您的需求...如果它适合您，请单击左侧的复选标记将答案标记为已接受。

Sub Freplace()
dim i as int
dim s as string
i = 1
s = "specific network"

Do until Cells(i,10).Value = ""
If Cells(i,10).Value = s Then Cells(i,8).Value = s
i = i+1
Loop
End Sub

Excel VBA - 如果那么替换

Excel VBA - If Then Replace

excel

vba

replace

if-statement