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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 信息科学 » 软件工具 » Excel求教：有效数据提取
111/2返回列表12下一页
查看: 2593  |  回复: 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下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 成果系统访问量大，请15分钟后再尝试。由此给您造成的不便，敬请谅解。 +6 xhuama 2026-03-02 7/350 2026-03-02 21:23 by kingkocxr
[考研] 0856调剂 +9 刘梦微 2026-02-28 9/450 2026-03-02 21:01 by 利好利好.
[考研] 求调剂 +7 repeatt?t 2026-02-28 7/350 2026-03-02 20:34 by hypershenger
[考研] 285求调剂 +9 满头大汗的学生 2026-02-28 9/450 2026-03-02 20:29 by hypershenger
[考研] 272求调剂 +9 材紫有化 2026-02-28 9/450 2026-03-02 20:22 by hypershenger
[考研] 0854总分272 +3 打小就是老实人 2026-03-02 4/200 2026-03-02 19:49 by 求调剂zz
[考研] 261求调剂 +3 陆lh 2026-03-01 3/150 2026-03-02 19:32 by zhukairuo
[考研] 考研复试调剂，过国家线的同学都可报名 +5 黑！在干嘛 2026-02-28 6/300 2026-03-02 19:30 by Dismas001
[考研] 材料调剂 +3 恒顺自然 2026-03-02 3/150 2026-03-02 18:49 by L135790
[考研] 0856化工专硕求调剂 +15 董boxing 2026-03-01 15/750 2026-03-02 15:06 by 晃晃不许晃
[考研] 338求调剂 +3 18162027187 2026-03-02 3/150 2026-03-02 13:12 by houyaoxu
[考研] 265分求调剂不调专业和学校有行学上就 +6 礼堂丁真258 2026-02-28 9/450 2026-03-02 12:04 by 52hz~~
[考研] 求调剂 +3 熬夜的猫头鹰 2026-03-02 3/150 2026-03-02 11:45 by 刘兵
[考研] 281求调剂 +5 2026计算机_诚心 2026-03-01 8/400 2026-03-02 11:05 by 汪！？！
[考研] 274求调剂 +3 cgyzqwn 2026-03-01 7/350 2026-03-02 10:38 by lature00
[考研] 调剂 +3 13853210211 2026-03-02 4/200 2026-03-02 10:16 by 13853210211
[考研] 0854复试调剂 276 +4 wmm9 2026-03-01 6/300 2026-03-02 09:28 by 热情沙漠
[考研] 328求调剂 +3 aaadim 2026-03-01 5/250 2026-03-01 17:29 by njzyff
[考研] 311求调剂 +6 亭亭亭01 2026-03-01 6/300 2026-03-01 15:41 by 324616
[考研] 317一志愿华南理工电气工程求调剂 +6 Soliloquy_Q 2026-02-28 11/550 2026-03-01 11:14 by 歌liekkas
信息提示
关闭
请填处理意见
关闭