我希望能够选择任意数量的单元格(都在同一行上),并运行一个将所有突出显示的单元格连接起来的宏,然后将所有剩余的单元格移到上面。
我的描述可能不清楚-希望这更有意义:
在下面的示例中,我在第1列至第8列中有数据。我将突出显示第1列至第3列中的单元格,运行宏,并将突出显示的单元格中的值合并到左侧(之间有空格),并在剩余的细胞移了过来。
前
Column1 Column2 Column3 Column4 Column5 Column6 Column7 Column8
A B C D E F G H
后
Column1 Column2 Column3 Column4 Column5 Column6 Column7 Column8
A B C D E F G H
这可能与宏(通过键盘快捷键执行)有关吗?我对excel和vba宏有一个一般的了解,但可悲的是我不足以知道这是可行的还是可行的。
我发现一些宏可以连接单元格数据,但不是基于突出显示的单元格。任何意见,将不胜感激。谢谢你。
试试看:
Sub bigmac()
Dim r As Range, rDel As Range
Set r = Selection
Dim N As Long
N = r.Count
Set rn = r(N)
st = ""
For i = 1 To N
st = st & r(i).Value
Next i
r(1) = st
Set rDel = Range(r(2), r(N))
rDel.Delete shift:=xlToLeft
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句