Excel的数据筛选(赋值）问题

downlove

用电负荷表（new）.rar (128.43 KB, 下载次数: 18)

2014-4-4 13:23 上传

点击文件名下载附件

Excel的数据筛选问题  问题描述详见附件

shuyee

用数据透视表吧，基本上满足你要求。

downlove

shuyee 发表于 2014-4-5 11:26
用数据透视表吧，基本上满足你要求。

非常感谢 shuyee 的回复，因下一步还要在此文件中做其他的工作，所以不能用数据透视表，麻烦帮像个办法，谢谢！

shuyee

Sub test()
Dim tmpR As Range, i%, j%, tmpV As Variant
Set tmpR = Sheets("DATABASE").Range("A1").CurrentRegion
tmpV = tmpR.Value
i = tmpR.Rows.Count
Sheets("Load_list").Range("A4").Resize(i, 9) = tmpV
tmpV = tmpR.Offset(0, 13).Value
Sheets("Load_list").Range("J4").Resize(i, 4) = tmpV
End Sub
为了对照，放到第4行，自己改一下即可。

downlove

shuyee 发表于 2014-4-8 20:36
Sub test()
Dim tmpR As Range, i%, j%, tmpV As Variant
Set tmpR = Sheets("DATABASE").Range("A1").Cu ...

抱歉，还是没得到我要得结果，需明确
       1 DATABASE中的各列位置不能变化
       2 Load_list中的各列在DATABASE中是不连续的，因为后续还要导出其他列内的数据
，DATABASE相当于数据库。

shuyee

是不连续的呀，你没注意吗？
第1次导入9列，第2次导入4列。其实这和你表头的对应关系有关啊。又不复杂。