excel - vba代码比较两个范围
问题描述
我有两个范围进行比较,以找到不比较的值。这些值需要粘贴到新单元格中。我的代码完美无缺,但由于某些原因,如果单元格值仅为数字,它将无法工作。
请看下文。
Sub RangeCompare2()
Dim Rg1 As Range, Rg2 As Range, c1 As Range, rgPaste2 As Range
Dim lngRowOffset3 As Long
On Error Resume Next
lngRowOffset3 = 0
Set Rg1 = Worksheets("Bridget Madumo").Range("AQ40:AQ70")
Set Rg2 = Worksheets("Bridget Madumo").Range("C69:C122")
Set rgPaste2 = Worksheets("BM CS").Range("C102")
Set rgPaste2 = rgPaste2.Cells(1, 1)
On Error GoTo 0
For Each c1 In Rg1.Cells
If Application.WorksheetFunction.CountIf(Rg2, c1.Value & "*") = 0 Then
rgPaste2.Offset(lngRowOffset3).Value = c1.Value
rgPaste2.Offset(lngRowOffset3, 1).Value = c1.Offset(, 1).Value
rgPaste2.Offset(lngRowOffset3, 2).Value = c1.Offset(, 2).Value
rgPaste2.Offset(lngRowOffset3, 3).Value = c1.Offset(, 3).Value
lngRowOffset3 = lngRowOffset3 + 1
End If
Next c1
Application.CutCopyMode = False
End Sub
解决方案
推荐阅读
- python - 我在 Pytorch 中的自定义损失函数没有训练
- apache-kafka - 春季启动卡夫卡消费者
- javascript - Jquery focusout 事件在输入文本字段上触发了两次
- c# - 修复返回的号码
- c# - 在 asp.net 中使用 ajax 工具包扩展创建动态条形图
- vb.net - 需要帮助将表格放在页面的开头
- ios - 隐藏子视图时调整 UIStackView 的大小?
- javascript - 将 ES6 类从节点打包到浏览器
- gradle - 如何从 sourceSet 中的一个 srcDir 中排除文件?
- excel - 从晨星提取特定的表格单元格,然后循环到下一个晨星页面