[已解决]怎么才能保证有空字段也能取数

hhxq001 · 发表于 2021-3-13 13:04

cutecpu 发表于 2021-3-9 15:30
橘色部份新增

Sub demo()

超版老师，又加了段导出数据的代码，问题是固定字段名称的可以简单解决，如果每月字段有变化，怎么处理才能以不变应万变呢，望指点。

新问题0313.zip (887.85 KB, 下载次数: 3)

cutecpu · 发表于 2021-3-13 14:18

hhxq001 发表于 2021-3-13 13:04
超版老师，又加了段导出数据的代码，问题是固定字段名称的可以简单解决，如果每月字段有变化，怎么处理才 ...

您好，導出的部份，可能要請您另發新帖，請版上其他高手幫您看一下喔
因為我這邊看不到簡體字，會變亂碼喔！

hhxq001 · 发表于 2021-3-13 16:27

cutecpu 发表于 2021-3-13 14:18
您好，導出的部份，可能要請您另發新帖，請版上其他高手幫您看一下喔
因為我這邊看不到簡體字，會變亂碼 ...

都轉成繁體的了，麻煩給指點下哦

http://www.excelpx.com/forum.php?mod=attachment&aid=NDQ0Mzk2fDNjODc5OTIxYmExZmM2NTM3YjhjYTE5YmEzNGY3MTQ1fDE3MTQzNjY5NTQ%3D&request=yes&_f=.png
http://www.excelpx.com/forum.php?mod=attachment&aid=NDQ0Mzk3fDQ4NGE0MDI2MWI3YjE3YTk0NWJkZjhjNGYzOGQxMTA5fDE3MTQzNjY5NTQ%3D&request=yes&_f=.png

新问题0313.zip (887.85 KB, 下载次数: 4)

cutecpu · 发表于 2021-3-13 23:16

hhxq001 发表于 2021-3-13 16:27
都轉成繁體的了，麻煩給指點下哦

.[a1:n1] = Array ( ................) 那边，改成下面代码：

ThisWorkbook.Sheets("1月汇总").[g3:p3].Copy
[c1:l1].PasteSpecial xlValues
[c1:l1].Replace What:="0", Replacement:=""
.Range("a1:b1").Value = [{"姓名", "身份證號碼"}]
.Range("m1:n1").Value = [{"住房公積金", "職業年金"}]

祝順心，南無阿彌陀佛！

hhxq001 · 发表于 2021-3-14 14:41

本帖最后由 hhxq001 于 2021-3-16 22:30 编辑

cutecpu 发表于 2021-3-13 23:16
.[a1:n1] = Array ( ................) 那边，改成下面代码：

ThisWorkbook.Sheets("1月汇总").[g3:p ...

谢谢，虽然看不懂，但是效果不错。拜膜呢

hhxq001 · 发表于 2021-3-16 22:35

cutecpu 发表于 2021-3-13 23:16
.[a1:n1] = Array ( ................) 那边，改成下面代码：

ThisWorkbook.Sheets("1月汇总").[g3:p ...

超版有空再给看看，如果每次只提取2个收入项目，代码怎么修改才有效呢？

取数问题 - 2项0316.zip (476.98 KB, 下载次数: 1)

		自动登录	找回密码
密码			注册