怎样将工作表中不为空值的数据自动复制到另一个工作表中？

scgyems

如题，谢谢！

魂断蓝桥

Sub a()
Dim r, t
Sheet1.Range("h1:x1").AutoFilter Field:=1
Sheet1.Range("k1").AutoFilter Field:=4, Criteria1:="<>"
r = Sheet1.[k9999].End(3).Row
t = Sheet2.[a9999].End(3).Row
Sheet1.Range("h3:x" & r).Copy Sheet2.Range("a1").Offset(t, 0)
Sheet1.Range("k1").AutoFilter
End Sub

lsc900707

用数组法。最好有个必填列。

scgyems

魂断蓝桥 发表于 2019-1-23 11:37
Sub a()
Dim r, t
Sheet1.Range("h1:x1").AutoFilter Field:=1

你好，谢谢你的解答。但是Sheet1中有公式的也复制到Sheet2了，怎样解决？

scgyems

lsc900707 发表于 2019-1-23 12:34
用数组法。最好有个必填列。

数据太多，每个月有几万条，用数组太慢。Sheet1的“差额”（S列）可作为必填列

魂断蓝桥

scgyems 发表于 2019-1-23 12:50
数据太多，每个月有几万条，用数组太慢。Sheet1的“差额”（S列）可作为必填列

Sub a()
Dim r, t
Sheet1.Range("h1:x1").AutoFilter Field:=1
Sheet1.Range("s1").AutoFilter Field:=4, Criteria1:="<>"
r = Sheet1.[k9999].End(3).Row
t = Sheet2.[a9999].End(3).Row
Sheet1.Range("h3:x" & r).SpecialCells(xlCellTypeVisible).Copy Sheet2.Range("a1").Offset(t, 0)
Sheet1.Range("k1").AutoFilter
End Sub

scgyems

魂断蓝桥 发表于 2019-1-23 13:46
Sub a()
Dim r, t
Sheet1.Range("h1:x1").AutoFilter Field:=1

还是不行啊，Sheet1中应为空值的都是这样的
=IF(H3="","",IFERROR(MATCH("*"&H3&"*",V:V,),""))
这是我的原始数据

魂断蓝桥

scgyems 发表于 2019-1-23 14:16
还是不行啊，Sheet1中应为空值的都是这样的
=IF(H3="","",IFERROR(MATCH("*"&H3&"*",V:V,),""))
这是我 ...

Sub a()
Dim r, t
Sheet1.Range("a1").AutoFilter Field:=1
Sheet1.Range("a1").AutoFilter Field:=19, Criteria1:="<>"
r = Sheet1.[k1048576].End(3).Row
t = Sheet5.[a1048576].End(3).Row
Sheet1.Range("h2:x" & r).SpecialCells(xlCellTypeVisible).Copy Sheet5.Range("a1").Offset(t, 0)
Sheet1.Range("a1").AutoFilter
End Sub

sheet1 表中的公式没有动，只是在复制到sheet5的时候，把公式都变成了值。

scgyems

魂断蓝桥 发表于 2019-1-23 15:24
Sub a()
Dim r, t
Sheet1.Range("a1").AutoFilter Field:=1

感谢魂断蓝桥，已经完美解决！

lucasmnp

scgyems 发表于 2019-1-23 17:53
感谢魂断蓝桥，已经完美解决！

我怎么觉得有错误提示呢