|
- 没写出来,就写一下microyip大神的解释了
- Sub 替换()
- Dim vData As Variant, nRow As Integer, vContrast As Variant, nI As Integer
-
- With Sheets("对照表").UsedRange
- vContrast = Sheets("对照表").UsedRange.Offset(1).Resize(.Rows.Count - 1).Value '单元格向下偏移一行,并大小向上调节1行创建数组
- End With
- With Sheet1.UsedRange
- With .Offset(1).Resize(.Rows.Count - 1, 1) '同上
- vData = .Value 'vdate是单元格
- For nRow = 1 To UBound(vData) '循环取sheet1中的数据
- If Trim(vData(nRow, 1)) <> "" Then '如果sheet1中的第2行开始的单元格不是空的
- For nI = 1 To UBound(vContrast)
- vData(nRow, 1) = Replace(vData(nRow, 1), vContrast(nI, 1), vContrast(nI, 2)) '源文本,查找他,替换他
- Next
- End If
- Next
- .Offset(, 1) = vData '向右偏移一列,写入数据
- End With
- End With
- End Sub
复制代码 |
评分
-
2
查看全部评分
-
|