|
- Sub 替换()
- Dim vData As Variant, nRow As Integer, vContrast As Variant, nI As Integer
-
- With Sheets("对照表").UsedRange
- vContrast = .Offset(1).Resize(.Rows.Count - 1).Value
- End With
- With Sheet1.UsedRange
- With .Offset(1).Resize(.Rows.Count - 1, 1)
- vData = .Value
- For nRow = 1 To UBound(vData)
- If Trim(vData(nRow, 1)) <> "" Then
- 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
复制代码 |
评分
-
1
查看全部评分
-
|