[已解决]VBA 每次点运作如何清除之前内容

xhuang

VBA 每次点运作如何清除之前内容，代码如下，谢谢！

Sub test()
Dim arr, d
    Set d = CreateObject("Scripting.Dictionary")
    arr = Sheet9.Range("B21:C" & Sheet9.Range("B65536").End(3).Row)

    For i = 1 To UBound(arr)
      If Not d.exists(arr(i, 1)) Then
          d(arr(i, 1)) = arr(i, 2)
      Else
          d(arr(i, 1)) = d(arr(i, 1)) & arr(i, 2)
      End If
    Next

    Sheet8.[B19:C19] = Array("唯一值", "机台")
    r = 20
    For Each i In d.keys()
        Sheet8.Cells(r, 2) = i
        Sheet8.Range(Sheet8.Cells(r, 2), Sheet8.Cells(r + 2, 2)).Merge
        Sheet8.Cells(r, 3) = d.Item(i)
        Sheet8.Range(Sheet8.Cells(r, 3), Sheet8.Cells(r + 2, 3)).Merge
        r = r + 3
    Next
    Set d = Nothing
End Sub

最佳答案

月排行榜 / 总排行榜

楚雪飞扬

2022-6-6 19:51

这个也是可以清空当前单元格内容
Sheet8.Range("C1:G11") = ""
Sheet8.Range("C1:G11").ClearContents '清空数据不清空格式

跳转到最佳答案楼层

hasyh2008

在前面加一句

sheet8.range("B18:C1000").clear
是这意思吗？

楚雪飞扬

这个也是可以清空当前单元格内容
Sheet8.Range("C1:G11") = ""
Sheet8.Range("C1:G11").ClearContents '清空数据不清空格式

scnc001

楚雪飞扬 发表于 2022-6-6 19:51
这个也是可以清空当前单元格内容
Sheet8.Range("C1:G11") = ""
Sheet8.Range("C1:G11").ClearContents ' ...

学习了。。