如何使用选定单元格返回的所有行号？

s52496240

ctrl+鼠标选定若干G列不连续单元格(选定行数为N个，这里以3行为例)G2,G4,G1，获取返回行号2,4,1，
D列选定第一个返回行号D2单元格，E列选定所有返回行号E2,E4,E1单元格，F列选定第一个返回行号F2单元格，E列选定所有返回行号G2,G4,G1单元格
按选定顺序合并所有单元格内容  效果如下
4月13日、16日、18日、售出B、D、A、
我用下面的宏需要手动按顺序选定D2,E2,E4,E1,F1,G2,G4,G1

怎么改才能实现这个效果呢

1. Sub 合并列单元格内容()
   
2. t = ""
   
3. Set tt = Selection
   
4. x = tt.Row '第一个格行号
   
5. y = tt.Column '列号
   
6. For Each a In Selection
   
7. t = t & a.Value
   
8. a.Value = ""
   
9. Next
   
10. Cells(x, y) = t
    
11. Selection.Merge
    
12. 
    
13. Selection.WrapText = True '自动换行
    
14. End Sub
    
15. 
    
16. 
    

复制代码

附件.zip (9.53 KB, 下载次数: 0)

2019-4-24 22:13 上传

点击文件名下载附件

s52496240

Sub XXX()
Dim Rng As Range, arr(), a&
For Each Rng In Selection
     a = a + 1
     ReDim Preserve arr(1 To a)
     arr(a) = Rng.Row
Next
MsgBox Join(arr)
End Sub
这个宏可以获取行号 怎把下面的数字换掉？
    range("D2,E2,E4,E1,F1,G2,G4,G1 ").Select
    range("D2").Activate