Question

我是VBA的新手，我在If-Then-Replace上阅读了很多内容，我觉得我自己很困惑。在我的工作表中，我有两列比我需要的更多的数据，我必须减少它以便连接它。

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

列J（标题）在每个单元格中包含以下数据：网络：类型：类型2：类型3

我运行一个text-to-columns来使其得到网络在1列，而Series在第2列。

我需要的是在J列中搜索＆＃34;特定网络＆＃34;。如果是这样，那么在第H列中替换网络。

问题：我是否还需要在J列中运行文本到列以获得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 - 如果然后替换

1 个答案: