Sub test() ' 除去Individual Dim i, j As Long For i = 1 To ActiveCell.Row For j = 1 To 18 If InStr(Cells(i, j), Individual) 0 Then Cells(i, j).ClearContents End If Next j Next i End Sub Sub delp() '去重 Dim i As Long For i = 1 To 615 '改动行 ...
从今天开始,学着做一个会写VBA的小仙女。 '20180517 'VBA常见数据类型 类型 注释 简写 占用内存 Integer 整型 % 2 Single 单精度 ! 4 Double 双精度 # 8 Long 长整型 4 String 字符型 $ / Currency 货币型 @ 8 Sub test() Dim a As Integer Dim b ...