如何依据条件提取数据并重新排列，老师们帮帮忙

wyf198251 · 发表于 2021-3-22 18:35

准提部林发表于 2021-3-22 15:57
Sub TEST_A02()
Dim Arr, Brr, X%, i&, j%, N&
Sheet1.UsedRange.Offset(1, 1).Clear

你好，老师，提取正常，但有个小问题，原来是百分比的，提取过来变成数值了，能保留原来的百分比格式吗？

准提部林 · 发表于 2021-3-22 19:07

須讀取單元格取其數字格式:

x0001.rar (24.64 KB, 下载次数: 6)

wyf198251 · 发表于 2021-3-23 19:59

准提部林发表于 2021-3-22 19:07
須讀取單元格取其數字格式:

谢谢老师！

wyf198251 · 发表于 2021-3-27 11:14

准提部林发表于 2021-3-22 19:07
須讀取單元格取其數字格式:

你好，老师！再请教个问题，代码其中一行Brr(N, j) = Arr(i, Mid(1267, j, 1))中1267表示第1、2、6、7列，如果我想要第10、11列如何表示？

准提部林 · 发表于 2021-3-27 19:38

wyf198251 发表于 2021-3-27 11:14
你好，老师！再请教个问题，代码其中一行Brr(N, j) = Arr(i, Mid(1267, j, 1))中1267表示第1、2、6、7列 ...

Arr(i, val(Mid("001021011", j*2, 2)))

wyf198251 · 发表于 2021-3-27 23:05

准提部林发表于 2021-3-27 19:38
Arr(i, val(Mid("001021011", j*2, 2)))

谢谢！拿过了能用，但不是很理解，本来想自己改一下提取1、2、3、4、5、6、7、8、9、10、11、12、13列的内容，没发现规律

，一行代码能行吗？

准提部林 · 发表于 2021-3-28 08:36

wyf198251 发表于 2021-3-27 23:05
谢谢！拿过了能用，但不是很理解，本来想自己改一下提取1、2、3、4、5、6、7、8、9、10、11、12、13列的 ...

順取, 不跳號
FOR J = 1 TO 13
Brr(N, j) = Arr(i, J)
NEXT

wyf198251 · 发表于 2021-3-28 11:00

准提部林发表于 2021-3-28 08:36
順取, 不跳號
FOR J = 1 TO 13
Brr(N, j) = Arr(i, J)

非常感谢！

wyf198251 · 发表于 2021-4-14 21:43

准提部林发表于 2021-3-28 08:36
順取, 不跳號
FOR J = 1 TO 13
Brr(N, j) = Arr(i, J)

wyf198251 · 发表于 2021-4-14 21:52

hzqhxy 发表于 2021-3-21 09:35
看是否为你要的效果

感谢老师解答！不好意思，您发的方案压缩包是.7z的前面有个问号，之前没注意到

，对不起，刚接触VBA，代码不是很懂，您的方案符合最初的效果

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

[求助] 如何依据条件提取数据并重新排列，老师们帮帮忙