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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 专业学科区 » 信息科学 » 软件工具 » Excel求教：有效数据提取
111/2返回列表12下一页
查看: 2631  |  回复: 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下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 279学硕食品专业求调剂院校 20+4 孤独的狼爱吃羊 2026-04-12 18/900 2026-04-13 01:17 by 幸免 ..
[考研] 297工科，求调剂? +10 河南农业大学-能 2026-04-12 10/500 2026-04-12 22:44 by lbsjt
[考研] 339求调剂 +3 hanwudada 2026-04-12 3/150 2026-04-12 21:43 by lbsjt
[考研] 086000调剂 +6 十七sa 2026-04-07 6/300 2026-04-12 11:05 by 大力水手力大无�
[考研] 电气专硕320求调剂 +6 小麻子111 2026-04-10 6/300 2026-04-12 10:54 by lemon6009
[考研] 人工智能320调剂08工类还有机会吗 +12 振—TZ 2026-04-10 12/600 2026-04-12 07:54 by wj165256
[考研] 359求调剂 +5 胃痉挛累了 2026-04-11 5/250 2026-04-11 19:55 by lbsjt
[考研] 求调剂 +6 archer.. 2026-04-09 8/400 2026-04-11 10:55 by zhq0425
[考研] 0854调剂 +4 长弓傲 2026-04-09 4/200 2026-04-11 09:18 by 猪会飞
[考研] 本9 一志愿西工大085601 324求调剂 +5 wysyjs25 2026-04-10 5/250 2026-04-10 16:57 by luoyongfeng
[考研] 266求调剂 +29 阳阳哇塞 2026-04-07 29/1450 2026-04-10 16:20 by 高维春
[论文投稿] mdpi小修rvr时间四五天了 20+3 哈哈high 2026-04-08 5/250 2026-04-10 16:02 by 北京莱茵润色
[考研] 一志愿华东师范生物学326分，求调剂 +8 刘墨墨 2026-04-09 8/400 2026-04-10 12:00 by pengliang8036
[考研] 环境专硕调剂 +16 会说话的肘子 2026-04-06 16/800 2026-04-10 10:30 by asy1wn
[考研] 江苏大学 工科调剂 捡漏 +3 Evan_Liu 2026-04-09 5/250 2026-04-10 10:22 by Evan_Liu
[考研] 274求调剂 +5 山阿蔓 2026-04-07 5/250 2026-04-09 15:28 by 18828373951
[考研] 一志愿华南师范大学0702物理学305调剂 +4 念常安 2026-04-07 6/300 2026-04-08 22:53 by bljnqdcc
[考研] 考研求调剂 +4 雯??? 2026-04-08 4/200 2026-04-08 21:44 by 土木硕士招生
[考研] 275 求调剂 +8 Lei812514 2026-04-07 8/400 2026-04-08 12:46 by chemisry
[考研] 388求调剂 +6 四川王涛 2026-04-07 8/400 2026-04-08 00:17 by JourneyLucky
信息提示
关闭
请填处理意见
关闭