【答案】应助回帖

» 猜你喜欢

1楼2017-11-30 19:05:55

回帖支持 ( 显示支持度最高的前 50 名 )

bcsnow

铁杆木虫 (著名写手)

应助: 245 (大学生)
金币: 7685.5
散金: 134
红花: 20
帖子: 1739
在线: 660.5小时
虫号: 576682
注册: 2008-06-21
性别: GG
专业: 人工智能与知识工程

引用回帖:

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

普通回帖

bcsnow

铁杆木虫 (著名写手)

应助: 245 (大学生)
金币: 7685.5
散金: 134
红花: 20
帖子: 1739
在线: 660.5小时
虫号: 576682
注册: 2008-06-21
性别: GG
专业: 人工智能与知识工程

【答案】应助回帖

感谢参与，应助指数 +1

用vba，按行列遍历，提取有效数字，存到同一行/列中

2楼2017-12-01 09:34:38

veritascoco

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 6
帖子: 14
在线: 7.3小时
虫号: 4943157
注册: 2016-08-25
专业: 作物栽培与耕作学

引用回帖:

2楼: Originally posted by bcsnow at 2017-12-01 09:34:38
用vba，按行列遍历，提取有效数字，存到同一行/列中

vba，需要我单独下载吗？还是在excel里就可以实现啊？可以教一下吗，非常感谢

不是很懂

3楼2017-12-01 11:42:04

bcsnow

铁杆木虫 (著名写手)

应助: 245 (大学生)
金币: 7685.5
散金: 134
红花: 20
帖子: 1739
在线: 660.5小时
虫号: 576682
注册: 2008-06-21
性别: GG
专业: 人工智能与知识工程

引用回帖:

3楼: Originally posted by veritascoco at 2017-12-01 11:42:04
vba，需要我单独下载吗？还是在excel里就可以实现啊？可以教一下吗，非常感谢

不是很懂...

看你excel菜单上面有开发工具一项不，没有右键在自定义功能区里调出来，点左边的visual basic 就可以了

4楼2017-12-01 15:16:49

veritascoco

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 6
帖子: 14
在线: 7.3小时
虫号: 4943157
注册: 2016-08-25
专业: 作物栽培与耕作学

引用回帖:

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

找到了，但不是很懂编程，这个需要编程吗？可以指导一下吗？非常感谢

5楼2017-12-01 16:15:26

veritascoco

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 6
帖子: 14
在线: 7.3小时
虫号: 4943157
注册: 2016-08-25
专业: 作物栽培与耕作学

引用回帖:

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) <> 0) Then
Cells(k, 1) = Cells(i, j) '第一列第k行开始保存
k = k + 1
E ...

好的，非常感谢

7楼2017-12-01 18:43:06

veritascoco

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 6
帖子: 14
在线: 7.3小时
虫号: 4943157
注册: 2016-08-25
专业: 作物栽培与耕作学

引用回帖:

您好，还想请教这个可以用编写一个小程序实现吗？可以求教一下吗？因数据量大，有个程序可能更方便。
vb好久没用都忘记了，

非常感谢

8楼2017-12-12 13:41:51

bcsnow

铁杆木虫 (著名写手)

应助: 245 (大学生)
金币: 7685.5
散金: 134
红花: 20
帖子: 1739
在线: 660.5小时
虫号: 576682
注册: 2008-06-21
性别: GG
专业: 人工智能与知识工程

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

veritascoco

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 6
帖子: 14
在线: 7.3小时
虫号: 4943157
注册: 2016-08-25
专业: 作物栽培与耕作学

引用回帖:

9楼: Originally posted by bcsnow at 2017-12-12 16:48:26
这还能忘？把你表格发给我试试看...

好的，非常感谢，大学学的，好久没用了

10楼2017-12-12 17:36:15