|
本帖最后由 hrpotter 于 2012-4-26 22:24 编辑
EXCEL VBA- Sub 转换()
- Dim ar
- Dim i As Integer, j As Integer, k As Integer
- ar = Range("b2").CurrentRegion
- For i = 1 To UBound(ar)
- For j = 1 To UBound(ar, 2)
- If ar(i, j) = "幸福" Then
- k = k + 1
- ar(i, j) = ar(i, j) & k
- End If
- Next
- Next
- Range("b2").CurrentRegion.ClearContents
- Range("b2").Resize(UBound(ar), UBound(ar, 2)) = ar
- End Sub
复制代码 WORD VBA
- Sub 转换()
- Dim ocell, k As Integer
- For Each ocell In ActiveDocument.Tables(1).Range.Cells
- If ocell.Range.Text Like "*幸福*" Then
- k = k + 1
- ocell.Range.InsertAfter k
- End If
- Next ocell
- End Sub
复制代码
|
|