如何把一列数据直接粘贴到筛选后的表格中

超级能赚 · 发表于 2010-8-24 15:53

如何把一列数据直接粘贴到筛选后的表格中？

cr0106 · 发表于 2010-8-24 16:02

貌似没办法只能先把筛选过的表格先复制到一边才能直接粘贴

dsmch · 发表于 2010-8-24 16:05

Dim rng As Range
Set rng = Range("h29:h34")
For Each cel In Range("a2:a" & Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
x = x + 1
cel.Offset(, 6) = rng(x)
Next

Book1.rar (7.15 KB, 下载次数: 102)

[ 本帖最后由 dsmch 于 2010-8-24 16:07 编辑 ]

超级能赚 · 发表于 2010-8-24 16:17

谢谢达人，可我这还是操作不了

dsmch · 发表于 2010-8-24 16:29

原帖由 超级能赚 于 2010-8-24 16:17 发表
谢谢达人，可我这还是操作不了

具体是什么情况？

ylq1818 · 发表于 2013-4-22 20:03

加一列辅助列：请看：http://www.docin.com/p-634317114.html

宝贝快长大 · 发表于 2013-5-30 11:06

我也很想知道这个我想把一列不同的数据粘贴到一列已经筛选后的表格中？怎么操作？

kiki2050 · 发表于 2013-9-4 23:21

我试了自己的方法，是目前可发现的最简便的方法

不知道007 · 发表于 2013-7-29 14:08

dsmch 发表于 2010-8-24 16:05
Dim rng As Range
Set rng = Range("h29:h34")
For Each cel In Range("a2:a" & Range("a65536").End(xlU ...

谢谢达人，但是具体的没太看明白

wolfen861011 · 发表于 2019-3-8 00:48

推荐3楼的，不错，用了，很好用。建议大家下载使用。

		自动登录	找回密码
密码			免费注册

[求助] 如何把一列数据直接粘贴到筛选后的表格中

最新热点 /1