应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 专业学科区 » 信息科学 » 软件工具 » Excel求教：有效数据提取
111/2返回列表12下一页
查看: 2682  |  回复: 10
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

veritascoco

新虫 (初入文坛)

[求助] Excel求教：有效数据提取 已有1人参与

Excel求教：在excel表格中选择一定区域进行有效数据提取；
例如5×5表格中，在坐标（1，3），（2，2），（2，4）（3，2），（4，3），（5，3）（5，4）有有效数据，如何提取？放在同一行或同一列？
跪求

Excel求教：有效数据提取
4KM6GI8`LYMV8M4YV3MKXKW.png
回复此楼

» 猜你喜欢
1楼 2017-11-30 19:05:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖置顶 ( 共有1个 )

bcsnow

铁杆木虫 (著名写手)
veritascoco: 回帖置顶 2017-12-12 18:50:04
引用回帖:
8楼: Originally posted by veritascoco at 2017-12-12 13:41:51
您好，还想请教这个可以用编写一个小程序实现吗？可以求教一下吗？因数据量大，有个程序可能更方便。
vb好久没用都忘记了，非常感谢...

这还能忘？把你表格发给我试试看
赞一下 回复此楼
9楼2017-12-12 16:48:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

bcsnow

铁杆木虫 (著名写手)
引用回帖:
5楼: Originally posted by veritascoco at 2017-12-01 16:15:26
找到了，但不是很懂编程，这个需要编程吗？可以指导一下吗？非常感谢...

Sub test()'简单写一下，测试通过
k = 6
For j = 1 To 5 '后按列搜索
For i = 1 To 5 '先按行搜索
If (Cells(i, j) <> 0) Then
Cells(k, 1) = Cells(i, j) '第一列第k行开始保存
k = k + 1
End If
Next
Next
End Sub
赞一下(1人) 回复此楼
6楼2017-12-01 17:22:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

bcsnow

铁杆木虫 (著名写手)

【答案】应助回帖

感谢参与，应助指数 +1
用vba，按行列遍历，提取有效数字，存到同一行/列中
赞一下 回复此楼
2楼2017-12-01 09:34:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

veritascoco

新虫 (初入文坛)
引用回帖:
2楼: Originally posted by bcsnow at 2017-12-01 09:34:38
用vba，按行列遍历，提取有效数字，存到同一行/列中

vba，需要我单独下载吗？还是在excel里就可以实现啊？可以教一下吗，非常感谢不是很懂
赞一下 回复此楼
3楼2017-12-01 11:42:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bcsnow

铁杆木虫 (著名写手)
引用回帖:
3楼: Originally posted by veritascoco at 2017-12-01 11:42:04
vba，需要我单独下载吗？还是在excel里就可以实现啊？可以教一下吗，非常感谢不是很懂...

看你excel菜单上面有开发工具一项不，没有右键在自定义功能区里调出来，点左边的visual basic 就可以了
赞一下 回复此楼
4楼2017-12-01 15:16:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

veritascoco

新虫 (初入文坛)
引用回帖:
4楼: Originally posted by bcsnow at 2017-12-01 15:16:49
看你excel菜单上面有开发工具一项不，没有右键在自定义功能区里调出来，点左边的visual basic 就可以了...

找到了，但不是很懂编程，这个需要编程吗？可以指导一下吗？非常感谢
赞一下 回复此楼
5楼2017-12-01 16:15:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

veritascoco

新虫 (初入文坛)
引用回帖:
6楼: Originally posted by bcsnow at 2017-12-01 17:22:24
Sub test()'简单写一下，测试通过
k = 6
For j = 1 To 5 '后按列搜索
For i = 1 To 5 '先按行搜索
If (Cells(i, j) &lt;&gt; 0) Then
Cells(k, 1) = Cells(i, j) '第一列第k行开始保存
k = k + 1
E ...

好的，非常感谢
回复此楼
7楼2017-12-01 18:43:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

veritascoco

新虫 (初入文坛)
引用回帖:
6楼: Originally posted by bcsnow at 2017-12-01 17:22:24
Sub test()'简单写一下，测试通过
k = 6
For j = 1 To 5 '后按列搜索
For i = 1 To 5 '先按行搜索
If (Cells(i, j) &lt;&gt; 0) Then
Cells(k, 1) = Cells(i, j) '第一列第k行开始保存
k = k + 1
E ...

您好，还想请教这个可以用编写一个小程序实现吗？可以求教一下吗？因数据量大，有个程序可能更方便。
vb好久没用都忘记了，非常感谢
赞一下 回复此楼
8楼2017-12-12 13:41:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

veritascoco

新虫 (初入文坛)
引用回帖:
9楼: Originally posted by bcsnow at 2017-12-12 16:48:26
这还能忘？把你表格发给我试试看...

好的，非常感谢，大学学的，好久没用了
赞一下 回复此楼
10楼2017-12-12 17:36:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 veritascoco 的主题更新
111/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 揭秘青基评审内幕：几个A才能顺利中标 +3 国自然国社科中 2026-05-23 4/200 2026-05-23 15:37 by 2000zf36392
[论文投稿] 投MDPI的三个期刊都被桌拒 +4 木虫研究牲 2026-05-17 5/250 2026-05-23 14:44 by 期刊投稿求助
[考博] 26/27申博自荐 10+4 ZXW0202 2026-05-22 6/300 2026-05-23 14:32 by tfang
[基金申请] 河北省自然科学基金 +5 Peterchao 2026-05-18 6/300 2026-05-23 13:28 by Peterchao
[基金申请] 青B发送上会通知了吗 +5 chemBioBro 2026-05-22 7/350 2026-05-23 12:35 by zhuifengzhy
[考博] 博士申请 +3 焦晓明 2026-05-21 3/150 2026-05-23 11:26 by mlc840311
[教师之家] 某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！ +3 zju2000 2026-05-21 4/200 2026-05-23 08:33 by xli1984
[基金申请] 今年审到国自然15份，谈谈感受 +27 国自然国社科中 2026-05-17 28/1400 2026-05-22 16:25 by hunter无悔
[论文投稿] 投稿求助，期刊 +4 希冀，有书读 2026-05-20 8/400 2026-05-22 10:16 by 希冀，有书读
[文学芳草园] 献血感触 +7 呀呀好傻 2026-05-19 13/650 2026-05-21 20:15 by 呀呀好傻
[基金申请] 面上本子正文33页，违规吗？会被低分嘛？ +14 1234567wang 2026-05-17 16/800 2026-05-21 17:58 by 脆脆的饼干
[基金申请] 国自然评分 +4 无名者登山 2026-05-20 5/250 2026-05-21 16:35 by swuq
[基金申请] 国自然上会要求 +7 无名者登山 2026-05-18 11/550 2026-05-21 15:50 by draco1987
[基金申请] 提交了我也来说说感想 +9 fummck 2026-05-20 10/500 2026-05-21 14:17 by draco1987
[基金申请] 评审有感 +15 popular289 2026-05-18 26/1300 2026-05-21 10:35 by 西葫芦炒鸡蛋
[论文投稿] Sci. Bull. 悲剧经验 +7 jyang1999 2026-05-16 8/400 2026-05-21 08:50 by 能丫
[有机交流] 反应很差，大量原料没有反应 5+3 Mr.Zot 2026-05-19 8/400 2026-05-20 22:19 by Equinoxhua
[考博] 如果工作了想读博，可以边工作边读全日制嘛？ 30+3 铁达火车 2026-05-18 5/250 2026-05-20 09:33 by tfang
[考博] 博士申请 +5 星…… 2026-05-18 6/300 2026-05-18 23:49 by 糊糊涂涂好
[硕博家园] 我在等一个没有答案的答案 +3 Love_MH 2026-05-17 3/150 2026-05-18 02:22 by 竹林孤影
信息提示
关闭
请填处理意见
关闭