工作表合并，代码不能使用，求指导

ykcbf1100

附件供参考。。。

divineson

cjc209 发表于 2024-1-27 11:09
搞好了 简单的无比

万分感谢老师的指导，

divineson

ykcbf1100 发表于 2024-1-27 15:09
既然楼主提到了，我不出手感觉说不过去。
简单改一下就可以了，代码的话不能完全套用，原来提取的是数字开 ...

感谢老师的多次帮忙，另外想请教一下，后面那段删除空行的，是否因为表内已不存在空行了，加入会导致运行出错，所以不再需要那段代码呢？
With Sh
       r = .Cells(Rows.Count, 1).End(3).Row
       For i = 3 To r
            If .Cells(i, 1) = "" Then .Cells(i, 1) = 9999
        Next
        Set Rng = .Range("a3:ai" & r)
        Rng.Sort .[a3], 1, , , , , , 1
        r = .Columns(1).Find("9999").Row
        .UsedRange.Offset(r - 1).Clear
    End With

divineson

wfywc81 发表于 2024-1-27 10:50
用ChatGPT很快写了一个VBA代码，已对程序进行测试，可以使用。请查收！

感谢老师的帮忙，每句都有注释，让我这小白有了学习的机会，谢谢！

wfywc81

divineson 发表于 2024-1-27 16:34
感谢老师的帮忙，每句都有注释，让我这小白有了学习的机会，谢谢！

都是ChatGPT给力，是机器自动写的，不是我写的。

ykcbf1100

divineson 发表于 2024-1-27 16:32
感谢老师的多次帮忙，另外想请教一下，后面那段删除空行的，是否因为表内已不存在空行了，加入会导致运行 ...

删除后面空行的话不用那么多代码
二句足够：
r = .Cells(Rows.Count, 1).End(3).row
.Usedrange.offset(r).Clear

divineson

wfywc81 发表于 2024-1-27 21:03
都是ChatGPT给力，是机器自动写的，不是我写的。

你好，能请教一下你使用的是哪款软件自动编程，能发个下载连接或名称吗？找了几款都没有你这种功能比较完整的，谢谢！

ykcbf1100

divineson 发表于 2024-2-9 07:03
你好，能请教一下你使用的是哪款软件自动编程，能发个下载连接或名称吗？找了几款都没有你这种功能比较完 ...

你可以试一下这个AIchat桌面版。不过，现在AI基本都收费的，不过不算贵。