一个困扰我的安列排序问题，找了很多资料。网上也搜了，都无法解决的问题。

junjun_whj · 发表于 2021-6-3 12:54

zfq2021 发表于 2021-6-2 18:11
试试我写的简单代码,看能不能达到你的要求.把代码直接复制进模块即可.
Sub 对齐()
Dim n, m, fcell, ...

牛啊

，可以实现。再请教一下。我想右边添加完数据，再左对齐。如何实现，能劳驾写个代码吗？

junjun_whj · 发表于 2021-6-3 16:52

zfq2021 发表于 2021-6-2 18:13
试试看,有没有达到你的要求!

可以实现，非常感谢。
如果能添加数据后再左端对齐恢复。就能解决困扰我的问题了。

junjun_whj · 发表于 2021-6-3 16:52

perfect131 发表于 2021-6-2 20:48
模块中运行宏 kong，选择区域就选项目8那一列就行，试试看
Private Sub kong1(ByVal target As Range)
...

执行过程中有些问题。

zfq2021 · 发表于 2021-6-4 10:47

junjun_whj 发表于 2021-6-3 16:52
可以实现，非常感谢。
如果能添加数据后再左端对齐恢复。就能解决困扰我的问题了。

是不是右对齐后,在左边空白单元格输入信息,然后再全部左对齐?能再发个事列上来?

zfq2021 · 发表于 2021-6-4 11:32

再试试,有没有达到你的要求.

zfq2021 · 发表于 2021-6-4 11:44

修改了单元格不选择,或者点取消后的报错问题.

junjun_whj · 发表于 2021-6-4 11:55

zfq2021 发表于 2021-6-4 11:44
修改了单元格不选择,或者点取消后的报错问题.

太牛了，完美解决了我的问题。非常感谢！！！！

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

[已解决] 一个困扰我的安列排序问题，找了很多资料。网上也搜了，都无法解决的问题。