源数据是A1:G18,需求是在K列显示A1:A18中各单元格重复出现的次数.在L列中是用countif函数直接计算的, Private Sub test() Dim rng As Range, i As Integer i = For Each rng In Range("A1:A18") Range("I" & i) = Application.WorksheetFunction.CountIf(Range("A" & i &a
VBA设置/取消工作簿共享是很常用的一个功能,那么如何用代码实现呢? 设置共享 Then MsgBox "文件没有保存" Exit Sub End If Application.DisplayAlerts = False ActiveWorkbook.ProtectSharing Filename:=ActiveWorkbook.Name Application.DisplayAlerts = True 取消共享 On Error Resume Next Application.Dis