Officel常用操作

Excel:

1、隔行变色|菜单->条件格式->其它规则->使用公式->"=MOD(ROW(),2)=0"

2、查找包含特定字符的单元格，并替换整个单元格

Sub FindAndReplace()
Dim i As Integer
With Range("G23:G25") '指定替换范围
For i = 1 To .Cells.Count
If WorksheetFunction.CountIf(.Cells(i), "*包含字符*") = 1 Then
.Cells(i) = "替换字符"
End If
Next i
End With
End Sub

3、替换Sheet名

Sub rename()
For Each i In Sheets
i.Name = Replace(i.Name, "被替换字符串", "替换字符串")
i.Name = Replace(i.Name, "2014-7-25", "2014-8-14")
Next
End Sub

Word:

查找重复字符通配符：“([一-龥]@)\1”

合并行自动填充序号：=MAX($A$1:A3)+1