Excel 求教如何修改期货账户密码成提取期货数据

来源：蜘蛛抓取(WebSpider) 时间：2017-01-25 05:55 标签： 期货资金账户密码修改
查看: 5917|回复: 3
[已解决]请教如何将符合条件的数据单独提取出来
请教如何将符合条件的数据单独提取出来，请见附件(附件上不了)
请教如何用VBA语句从A:C列把店名中包含“多品”的店铺名称和收入放在G:H列[tr] [/tr]
[tr] [/tr]
[tr] [/tr]A& && && && && && && && && && &&&B& && && &C& && && & E& & F& &G& && &&&H& && && && && && && && &&&I
店名人数收入店名收入太仓新区多品NK10000太仓新区多品NK10000太仓新区多品NK(NK360)10000太仓新区多品NK(NK360)10000太仓新区多品NK(AD)10000太仓新区多品NK(AD)10000太仓新区NK10000太仓新区多品NK(PU)10000太仓新区NK10000太仓新区多品NK(CV)10000太仓新区多品NK(PU)10000太仓新区多品NK(ADO)10000太仓新区多品NK(CV)10000太仓新区多品NK(ADO)10000太仓新区NK10000太仓新区NK10000太仓新区NK10000太仓新区NK10000太仓新区NK10000
E路人发布于
Sub aa()
Dim i, arr, d As Object
Set d = CreateObject(&Scripting.Dictionary&)
arr = Range(&A1&).CurrentRegion
For i = 2 To UBound(arr)
If arr(i, 1) Like &*多品*& Then
d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 3)
End If
Next i
Range(&G2:H100&).ClearContents
[G2].Resize(d.Count, 1) = Application.Transpose(d.keys)
[H2].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub
复制代码
&&&本楼为最佳答案&&&
Sub aa()
Dim i, arr, d As Object
Set d = CreateObject(&Scripting.Dictionary&)
arr = Range(&A1&).CurrentRegion
For i = 2 To UBound(arr)
If arr(i, 1) Like &*多品*& Then
d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 3)
End If
Next i
Range(&G2:H100&).ClearContents
[G2].Resize(d.Count, 1) = Application.Transpose(d.keys)
[H2].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub
复制代码
使用高级筛选
Sub cc()
&&With Sheets(&Sheet1&)
& & .Range(&A1:C100&).AdvancedFilter 2, .Range(&J1:J2&), .Range(&G1:H1&)
&&End With
End Sub
复制代码代码说明
.Range(&A1:C100&)&&为数据源区域,如果数据源是 A1:C500 ,则对应修改,该区域第一行必需是 字段名称
.Range(&J1:J2&),&&条件区域,J1 为条件字段名称,J2 为条件
如你的要求,&&J1 输入 &店名&&&也就是要和 A1 的内容一样,
J2 输入&&*多品*& &&&,这条件就是包含 多品
.Range(&G1:H1&)& &要复制到的地方,
G1 输入&&店名
H1 输入 收入
也就是这两个单元格是 数据源中的字段名称,你要显示那个字段,就输入对应字段的名称就行了
如果你要添加条件,则修改 Range(&J1:J2&),&&的区域大小即可,不用的条件区域可不输入任何内容
比如修改为 Range(&J1:K2&),&&但是你也只在 J1,J2 输入了内容也是可以查找到的
要想显示更多的字段,则修改 Range(&G1:H1&)&&区域
需要注意的是,该区域必需都要有有效的字段名称,若不想显示某个字段,这个区域也需要做修改
比如这里你只想显示 店名,这一个字段到 G 列,则修改 Range(&G1:H1&)& &为 Range(&G1&)
而不能使用 Range(&G1:H1&)&&让H1 空着
要想多显示一个字段,则对应着添加就行了
多谢& && && && && && && && && && && && &
Powered byrubydragon
你好，你这是行情软件，不是做交易的软件
您的举报已经提交成功，我们将尽快处理，谢谢！
文华财经的历史数据文华是卖的，每根k线1毛。所以限制导出，只能复制100-200根k线。如果要文华的历史数据，可以去永华数据中心找找，那儿应该有
1、最全面的历史数据，可向各交易所购买。
2、也可向信息提供商购买，比如世华资讯、路透咨讯等，其在国内期货交易一开始时就从事信息播发业务，储存的历史数据最...
一个是程序本身的购入点的优化可以改善一些，再一个是自己的网速，最后还有电脑本身的配置也很重要。但是如果想完全规避那基本是不可能的。如果还有其他疑问可以随时联系我
在钱龙网站重新下载安装，再免费注册一个帐号，然后登陆即可。
大家还关注 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
将指定期货最新行情数据写入Excel的代码
下载积分：0
内容提示：将指定期货最新行情数据写入Excel的代码
文档格式：DOCX|
浏览次数：33|
上传日期： 17:14:20|
文档星级：
该用户还上传了这些文档
将指定期货最新行情数据写入Excel的代码
官方公共微信后使用快捷导航没有帐号？注册
查看: 859|回复: 1
精华0在线时间1 小时UID143922积分2帖子阅读权限10注册时间最后登录
期市新手, 积分 2, 距离下一级还需 48 积分
精华0UID143922积分2帖子主题阅读权限10注册时间最后登录
原来版本是点上方的软盘图标，可以实现导出行情报价数据到excel，请问，新版本如何导出行情报价数据到excel？
精华0在线时间1519 小时UID209716积分862帖子阅读权限200注册时间最后登录
精华0UID209716积分862帖子主题阅读权限200注册时间最后登录
在行情报价里右键菜单有个保存板块到文件
Powered by

我要回帖

更多关于 期货资金账户密码修改 的文章

 

随机推荐