如何把两个宏合并成一个

dtmkzhb

如何把两个宏合并成一个

小凡、、、

两个写到一个sub里  或者  另外写一个sub分别call这两个写好的宏

小凡、、、

我看你的意思应该是这样，加个or同时选中年病

dtmkzhb

小凡、、、 发表于 2024-11-14 15:38
两个写到一个sub里  或者  另外写一个sub分别call这两个写好的宏

不行，只执行HJ病这个宏的功能

feilanga

feilanga

你大脑思维的逻辑就是代码执行的逻辑。所以，按逻辑去改动代码。先做什么，后做什么，满足什么条件执行什么语句。

ynzsvt

1. Sub hj合并()
   
2. Dim rng As Range
   
3. Dim yvhf
   
4. For Each rng In Range("A2: O18")
   
5. If rng = "年" Or rng = "病" Then
   
6. yvhf = yvhf & rng.Address & ","
   
7. End If
   
8. Next
   
9. Range(Left(yvhf, Len(yvhf) - 1)).Select
   
10. End Sub

复制代码

松永

参与一下.........

沈默00

改一下