Excel如何将sheet1符合条件的内容复制到另一个sheet页中？

Question

sheet1的数据表中1500个姓名，我想要将3个字以上的姓名直接复制并显示到另一个sheet中，不符合条件的不复制。请问用函数的话能处理吗？

Answer 1

假设姓名在Sheet1表的A列，在另一张表中输入公式=IFERROR(INDEX(Sheet1!A:A,SMALL(IF(LEN(Sheet1!A$1:A$1500)>=3,ROW($1:$1500)),ROW(A1))),"")

数组公式，Ctrl+Shift+回车，下拉公式。

Answer 2

Option Explicit
Sub test()
Dim i As Integer
Dim rng As Range
Dim arr() As Variant
'假设你的数据在表1
Sheets(1).Select
'假设你的表1数据全为姓名，如果有其它数据，你需要说明姓名在哪一行或者哪一列
For Each rng In ActiveSheet.UsedRange
If Len(rng.Value) > 3 Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = rng.Value
End If
Next
'假设你要粘贴到表2
Sheets(2).Select
'假设你要粘贴到A列
Range("A1").Resize(i) = arr
End Sub