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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 信息科学 » 软件工具 » Excel求教：有效数据提取
111/2返回列表12下一页
查看: 2579  |  回复: 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下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 3/150 2026-02-08 03:05 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 3/150 2026-02-08 02:52 by vs90ilomwc
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 4/200 2026-02-08 02:45 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 3/150 2026-02-08 02:32 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:27 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:25 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:12 by vs90ilomwc
[教师之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 02:05 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:32 by vs90ilomwc
[教师之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:26 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:12 by vs90ilomwc
[教师之家] 有院领导为了换新车，用横向课题经费买了俩车 +7 瞬息宇宙 2026-02-04 7/350 2026-02-07 21:47 by tfang
[有机交流] 酰胺脱乙酰基 10+5 chibby 2026-02-03 12/600 2026-02-07 19:29 by 江东闲人
[基金申请] 同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗 +4 hitsdu 2026-02-06 4/200 2026-02-07 13:07 by jurkat.1640
[基金申请] 有时候真觉得大城市人没有县城人甚至个体户幸福 +9 苏东坡二世 2026-02-04 10/500 2026-02-07 12:37 by 小毛球
[考博] 天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人） +4 a793625982 2026-02-05 5/250 2026-02-07 10:57 by a793625982
[公派出国] CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优 +4 雨念 2026-02-01 6/300 2026-02-06 23:32 by MelissaPon
[基金申请] 面上项目申报 +3 Tide man 2026-02-01 3/150 2026-02-05 22:56 by god_tian
[硕博家园] 博士延得我，科研能力直往上蹿 +7 偏振片 2026-02-02 7/350 2026-02-04 17:36 by 陈氏帝国
[教师之家] 遇见不省心的家人很难过 +18 otani 2026-02-03 22/1100 2026-02-04 11:06 by tangmnt
信息提示
关闭
请填处理意见
关闭