[已解决]执行VBA的时候，添加什么代码才能先清除内容再执行代码？

johnj4321

要求：点击按钮1的时候，需要先清除D列单元格内容，再执行以下代码。不然会有上次的残留操作内容。

Sub 唯一值()             Dim arr, i%, j%, u%, brr(),  k%             arr =  [a1].CurrentRegion             u = UBound(arr)             ReDim brr(1 To u)             For i = 1 To u                 If i < u Then                     For j = i + 1 To  u                         If arr(i, 1) =  arr(j, 1) Then arr(j, 1) = ""                     Next j                 End If                 If arr(i, 1) <>  "" Then k = k + 1: brr(k) = arr(i, 1)             Next i              Range("D1").Resize(k) = Application.Transpose(brr)         End Sub

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-27 11:42

添加一句columns(4).clearcontents

跳转到最佳答案楼层

大灰狼1976

添加一句columns(4).clearcontents

chart888

1. Sub 唯一值()
   
2. Dim arr, i%, j%, u%, brr(), k%
   
3. arr = [a1].CurrentRegion
   
4. u = UBound(arr)
   
5. ReDim brr(1 To u)
   
6. For i = 1 To u
   
7.     If i < u Then
   
8.         For j = i + 1 To u
   
9.             If arr(i, 1) = arr(j, 1) Then arr(j, 1) = ""
   
10.         Next j
    
11.     End If
    
12.     If arr(i, 1) <> "" Then k = k + 1: brr(k) = arr(i, 1)
    
13. Next i
    
14. Range("D1:D" & Rows.Count).ClearContents
    
15. Range("D1").Resize(k) = Application.Transpose(brr)
    
16. End Sub

复制代码