使用 VBA 宏查找并替换一个单元格中的部分字符串及其下方单元格的值

Question

我在 excel 的一行中有多个单元格，所有单元格都包含 HTML。每个单元格使用不同的语言，但始终具有相同的 URL，例如：(...loc=en-uk) 我需要在每个单元格中查找并替换它，但每个单元格的值不同，例如：find "en-uk " 在单元格 A 中，替换为“it-it”，移动到下一个单元格，找到“en-uk”，替换为“es-es”，依此类推，直到到达空单元格。

尝试了以下方法，但它只需要从相同的 2 个单元格中查找和替换值：

Dim Findtext As String 
Dim Replacetext As String 

Findtext = Range("B2").Value 
Replacetext = Range("C2").Value 
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 

Answer 1

您将希望使用单元格而不是范围，并使用变量“lCol”循环遍历列。 Range(Column Letter , Row Number) 有它的限制，因为您使用的是字母。很难将 1 加到 C.. C + 1 = D？所以使用 Cells(row#, col#)。这样，您就可以使用数字而不是字母逐步遍历列或行。在这种情况下，变量是列，因此我们将使用 lCol 并从 1 循环到最后一个列号。使用您的原始帖子作为起点替换原始源字符串中的文本。

注意：我不确定您的原始字符串在哪里。此外，如果您知道要从原始字符串中替换什么，并且发现自己在整个表格中看到 Row2 都是相同的东西，您可以在下面的 replaceString 语句中进行设置。

试试这个 - 一旦你取出所有的 cmets，它只有几行。

Sub TextReplace()

Dim sheetName As String
Dim findText As String
Dim replaceText As String
Dim lastCol As Long
Dim lCol As Long

'Set the sheetName here, so you don't have to change it multiple times later
sheetName = "Sheet1"

'Check the Last Column with a value in it in Row 3.  Assuming Row 3 has the Replacement text.
lastCol = Sheets(sheetName).Cells(3, Columns.Count).End(xlToLeft).Column

'Assuming you have an original string in a cell.  Range("A1"), in this case.
origString = Sheets(sheetName).Cells(1, 1).Value

'Loop through each Column - lCol is going to increase by 1 each time.  
'Starting on Column B,since Column A contains your original String.
For lCol = 2 To lastCol

'Using Cells(row#, col#), instead of Range(ColLetter, row#) gives you the ability to loop with lCol.
    findText = Sheets(sheetName).Cells(2, lCol).Value
    replaceText = Sheets(sheetName).Cells(3, lCol).Value

    'Put the value from Range("A1") with the text replaced from Row 2 with Row 3's value.
    Sheets(sheetName).Cells(1, lCol) = Replace(origString, findText, replaceText)

Next lCol

End Sub

编辑：更新 Column 从 B 开始，而不是 A。

Answer 2

试试这个（例如第 16 行和第 20 行）：

Sub ReplaceTextinRow()
Dim lastCol, iter
lastCol = ActiveSheet.UsedRange.Columns.Count 'this approach is not always applicable

For iter = 1 To lastCol
'Cells(16, iter).Offset(4, 0).Value = Replace(Cells(16, iter).Value, "en-us", "en-uk")

Cells(20, iter).value = Replace(Cells(20, iter).value, Cells(20, iter).Offset(-4, 0).Value)
Next
End Sub