vba 小问题

原始文件分为两部分，如图片“原始文件”：
上面是蓝白相间的部分，蓝色的行有数据，白色的行是空行，
下面是纯白色的部分，每一行都有数据。
目标样式：
请参照目标样式图片，
从下面纯白色的数据里面，找出与上面蓝白相间的数据，完全相同的行，
然后把其粘贴在上面蓝白相间部分，白色的行中。
Note：
原始数据中还有很多列，我把其余的列都删除了，留下了核心的数据，
所以不能根据单元格来查找，只能按照行来查询，我需要复制整行内容。
文件行数并不固定。
不知道我的描述是否清楚，请帮帮忙哈！
原始文件

目标样式

DING

能想到的还是遍历，只不过是要把各个单元格的值合并起来（join( arr,"符号") .再比对，符合的split拆分，赋值，源数据行删除。没什么难得吧。

有朋友帮忙写了一段代码，但是会报错，
n = rng.Columns(1).Find(What:="", LookIn:=xlFormulas, SearchDirection:=2, SearchFormat:=True).Row
这句话报错
object variable or with block variable not set
Sub test()
Dim t As Boolean, rng As Range
Dim n%, i%, j%, k%, arr, brr
Set rng = Sheets("results").UsedRange
rng.Replace ".", ""
Application.FindFormat.Interior.Color = rng(1, 1).Interior.Color
n = rng.Columns(1).Find(What:="", LookIn:=xlFormulas, SearchDirection:=2, SearchFormat:=True).Row
arr = rng.Rows("1:" & n + 1): brr = rng.Rows(n + 2 & ":" & rng.SpecialCells(11).Row)
For i = 1 To UBound(arr) Step 2
For j = 1 To UBound(brr)
For k = 1 To UBound(arr, 2)
If arr(i, k) <> brr(j, k) Then
t = False
Exit For
Else
t = True
End If
Next
If t Then rng.Rows(i + 1).FormulaR1C1 = "=r[-1]c"
Next
Next
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

3回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六