请大神帮我改个方向

8992271304 · 发表于 2023-8-2 12:48

这是一行数据，其中有的单元格是空白的，所另起一行重新排版，自动把空白单元格去掉

Function ss(rr)
For Each r In rr
If r.Value <> "0" Then
nn = nn & r
End If
Next

ss = nn
End Function

=MID(ss($A$1:$DG$1),COLUMN(A:A),1)

---------------------------------------------------------------------------------
现在我想改下方向，把重排某行改成重排某列，还是同样的规则，在原列的基础上另起一列，把原列中的空白单元格自动去掉，除了把COLUMN替换为ROW之外，还要改动哪些地方？

xlllw203 · 发表于 2023-8-2 13:40

本帖最后由 xlllw203 于 2023-8-2 13:51 编辑

貌似column(a:a)改成row(a1)即可
当然，框选范围要变成1列数据

去掉空白的话，不是应该r.value<>""吗？

其实你这个要求函数完全可以实现，不需要自定义函数

8992271304 · 发表于 2023-8-2 14:04

xlllw203 发表于 2023-8-2 13:40
貌似column(a:a)改成row(a1)即可
当然，框选范围要变成1列数据

我试过了，只是把column(a:a)改成row(a1)的话，单元格中的数值就会被自动拆分，比如“200”这个数会变成“2”、”0“、“0”三个数。

请教一下，单用函数的话怎么写？

xlllw203 · 发表于 2023-8-2 14:21

8992271304 发表于 2023-8-2 14:04
我试过了，只是把column(a:a)改成row(a1)的话，单元格中的数值就会被自动拆分，比如“200”这个数会变 ...

上一下附件

8992271304 · 发表于 2023-8-2 14:38

xlllw203 发表于 2023-8-2 14:21
上一下附件

就是这个

xlllw203 · 发表于 2023-8-2 14:42

8992271304 发表于 2023-8-2 14:38
就是这个

三键数组公式，下拉

=INDEX(A:A,SMALL(IF(A:A<>"",ROW($1:$23),4^8),ROW(A1)))&""

复制代码

8992271304 · 发表于 2023-8-2 15:14

xlllw203 发表于 2023-8-2 14:42
三键数组公式，下拉

出错了，咋回事

xlllw203 · 发表于 2023-8-2 15:23

8992271304 发表于 2023-8-2 15:14
出错了，咋回事

=INDEX(A:A,SMALL(IF(A$1:A$23<>"",ROW($1:$23),4^8),ROW(A1)))&""

复制代码

我正常的，你改成这个试试，还是三键

8992271304 · 发表于 2023-8-2 15:25

xlllw203 发表于 2023-8-2 15:23
我正常的，你改成这个试试，还是三键

这回行了，非常感谢

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

[已解决] 请大神帮我改个方向