如何用VBA清零

w5xzm

我的工作表要反复使用，又不想老用复制工作簿
里面有很多分散的单元格要填数字，
每用一次都要清除上一次填下的数字
请教高手，有没有方法用VBA实现查找未锁定的单元格，并将其清零??

w5xzm

谢了

w5xzm

啊呀，对呀用&、合并！！
瞧我的脑呆瓜子........ ~

pureshadow

要求四列都一样的为重复吗，最简单的办法，把四个单元格用&合并为一个，然后再随你用哪种方式剔除重复。

w5xzm

我在妖的空间里，看到有剔除重复的公式
正好，近期我也碰到了类似的烦事
可是我怎样也弄不好，还请赐教哦~~
我的问题是这样：
   A    B   C   D   E  
1 50   甲  乙  丙  丁     
2 30   乙  甲  甲  甲
3 20   甲  乙  丙  
4 10   甲  乙  丙  丁
5 30   甲  甲  乙  乙
6 30   甲  乙  丙  
...
我想得到的结果是：
   A    B   C   D   E  
1 60   甲  乙  丙  丁
2 30   乙  甲  甲  甲
3 50   甲  乙  丙  
4 30   甲  甲  乙  乙
5
6  
...
B、C、D、E列是汉字，A列是数据



[ 本帖最后由 w5xzm 于 2008-2-26 13:10 编辑 ]

pureshadow

workbooks.add加个数量，不要多1000左右，做在workboos_open里，谁说不是病毒了呢？

w5xzm

用来作毒倒也不赖

pureshadow

都说了是另类代码嘛

w5xzm

实在是高

Sub test()
    Dim vUnlocked As Variant
    Dim rngUnlocked As Range
   
    With ActiveSheet
        .Unprotect Password:="abcd"   '<<<<这好象要加入解保护??
        If .ProtectContents = True Then .Unprotect
        vUnlocked = .UsedRange
        .UsedRange.ClearContents
        .Protect
        On Error Resume Next
        .UsedRange.Value = 1
        .Unprotect
        Set rngUnlocked = .UsedRange.SpecialCells(xlCellTypeConstants)
        .UsedRange = vUnlocked
        rngUnlocked.Select
        .Protect Password:="abcd"       '<<<< 这好象要加入加保护???
    End With
Selection.ClearContents
End Sub


运行之后所有的公式失去功能
还请改进

[ 本帖最后由 w5xzm 于 2008-2-26 08:29 编辑 ]

pureshadow

我师傅给了我个另类的代码，可以试试：
Sub test()
    Dim vUnlocked As Variant
    Dim rngUnlocked As Range
   
    With ActiveSheet
        If .ProtectContents = True Then .Unprotect
        vUnlocked = .UsedRange
        .UsedRange.ClearContents
        .Protect
        On Error Resume Next
        .UsedRange.Value = 1
        .Unprotect
        Set rngUnlocked = .UsedRange.SpecialCells(xlCellTypeConstants)
        .UsedRange = vUnlocked
        rngUnlocked.Select
    End With
selection.clearcontents
End Sub