尝试在不弄乱边框的情况下删除重复项
RawRaw7
我试图在不弄乱边框的情况下删除重复项。我已经编写了一些代码，但是当我尝试它时，它要么弄乱了边界，要么清除了超出其范围的数据。
我只想比较我拥有的图纸列表，而不会超出指定范围或弄乱边框
子 DelDupl()
Dim rng As Range
Set rng = Range("A13:F305")
Range("A13").CurrentRegion.RemoveDuplicates Columns:=Array(3, 4), Header:=xlYes
With rng.Borders
.LineStyle = xlContinuous
.Color = vbBlack
.Weight = xlThin
End With
End Sub
我想将文档标识符列与工作表列进行比较，如果匹配，则删除相应的行。
我在下面附上了一张图片。我只想比较从第 14 行开始的数据。当我运行我的代码时，它还会删除第 11 行中看到的“数字文件”文本。
PASUMPON VN
Sub Program1()
Dim wb As Workbook
Dim ws As Worksheet
Dim Rng As Range
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Sheet1")
With Sheets("Sheet1")
Lastrow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
End With
' for B column and C Column
Set Rng = ws.Range(ws.Cells(14, 2), ws.Cells(Lastrow, 3))
Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
在不覆盖hashCode（）的情况下删除重复项
- 2
在不更改元素顺序的情况下删除数组中的重复项
- 3
在不导入库和使用集合的情况下删除列表中重复项的最快方法
- 4
如何在不弄乱边框的情况下将<div>保留在标题中？
- 5
无法在不弄乱数组的情况下从数组中删除对象
- 6
在不排序的情况下删除VIM异常情况下的连续重复行
- 7
如何在不排序的情况下删除vi中不连续的重复行？
- 8
如何在不丢失订单的情况下消除重复项
- 9
如何在不使用Distinct的情况下删除SQL查询中的重复项？
- 10
如何在不同情况下（VBA）在Excel中删除重复项？
- 11
如何在忽略标点的情况下删除数据帧中的重复项？
- 12
在不使用任何数据结构的情况下从输入中删除重复项
- 13
在不使用set的情况下从嵌套列表中删除重复项
- 14
在条件基于另一列的情况下从熊猫数据框中删除重复项
- 15
在不使用Util类的情况下从数组中删除重复项
- 16
在不使用set（）的情况下删除元组中的重复项
- 17
如何在不使用`uniq`的情况下删除数组中的重复项？
- 18
在没有主键的情况下，使用Pig删除重复项
- 19
在某些字段具有优先权的情况下，如何从文件中删除重复项？
- 20
在不使用熊猫的情况下合并和删除两个 csv 中的重复项
- 21
如何在不丢失顺序的情况下删除 Swift 中字符串的重复行？
- 22
如何在不排序且仅匹配第 n 列的情况下删除重复行
- 23
如何在不删除条目行的情况下从单个 Power Query 列中删除重复项？
- 24
防止在不使用索引的情况下插入重复项
- 25
仅在标题相同的情况下突出显示重复项
- 26
在不尝试/不捕获的情况下进行延迟，或者将其包含在一项功能中
- 27
Java GUI：我似乎无法在不弄乱GridLayout的情况下添加JLabel？
- 28
如何在不弄乱序列的情况下将列表转换为字典
- 29
在不使用附加缓冲区的情况下从Python中删除字符串中的重复项
我来说两句