请教老师：如何筛选后，部分数据粘贴到另个表中 - 编程论坛

#2

xs5912222019-02-15 18:42

可以录制宏，再适当修改一下

#3

lygyjt2019-02-16 07:56

回复 2楼 xs591222

谢谢xs591222老师的指教！但总觉得机器写的，不如人编的直接易懂。

#4

Cyberoe22019-09-20 09:53

程序代码：

Sub tn()
        Dim k, i, m As Long
        Dim max_row As Long

        With Sheet1
                max_row = .[a:c].Find("*", , xlValues, , , xlPrevious).Row
                Sheet3.Rows.Clear
                For i = 2 To max_row
                        If .Rows(i).Hidden = False Then
                                Sheet3.Cells(m + 1, 1) = .Cells(i, 1)
                                For k = 6 To 13
                                        Sheet3.Cells(m + 1, k - 4) = .Cells(i, k)
                                Next
                                m = m + 1
                        End If
                Next
        End With
End Sub

只有本站会员才能查看附件，请登录

用字典可能会更好，正在学习ing...

[此贴子已经被作者于2019-9-20 09:54编辑过]

#5

Cyberoe22019-09-20 09:53

[此贴子已经被作者于2019-9-20 09:55编辑过]