- Sub YuBa()
- Dim arr, i%, j%
- arr = Sheet1.UsedRange
- For i = 1 To UBound(arr)
- For j = i = 1 To UBound(arr, 2)
- If arr(i, 2) = "基本解释" Then
- arr(i, 4) = arr(i, 4) & arr(i + 1, 4)
- arr(i + 1, 4) = ""
- End If
- Next
- Next
- Sheet1.UsedRange = ""
- Sheet1.UsedRange = arr
- End Sub
复制代码 |