满意回答
2021/11/14 21:26
代码如下：Submymerge()DimrgAsRangeDimiAsIntegerSetrg=Selectionrow1=rg.Rows.Countcols=rg.Columns.CountFori=1Tocolsrg.Range(Cells(1,i),Cells(row1,i)).MergeNextEndSub效果如下：
评论(0)
其他回答(1)
-
都是空白单元格，通常操作方法是选择左边一列的单元格，合并，然后右拉这个合并单元格至所需的列即可。这个方法操作非常简单。在Excel中，能操作的，不用函数；能用函数的，不用VBA。这是不成文的规定。如果为了学习VBA，你的要求还可以，若是实际应用就大可不必了。若想得到你要的VBA代码，你按照上述的操作方法来录制宏，然后稍加修改就OK了。回答于 2021/11/14 21:46相关已解决
- 2个回答3x/2+1-2=3x/5-2-2x/10+3，解方程怎么解来自？
- 2个回答481÷32÷25÷1.25现在就要答案，急急急！
- 1个回答消防心理学的内容是什么
- 1个回答herqualitiesruboffonherstudentsanditshows
- 2个回答妈妈买了4箱苹果,第箱14千克,一共用去112元.平均每千克苹果多少元?
- 2个回答在变量x与y的关系式y=x+4中，当自变量x=-2时，来自因变量y的值为＿.
- 2个回答甲、乙两人参加射击比赛的来自平均成绩都为8环，甲的方差为8.5，乙的方差为7.6，则射击成绩更稳定的
- 1个回答“a的来自2倍与b的3倍的差”用代数式表示为＿.
- 2个回答下面几告花妒变何体截面一定是圆的是()A来自.圆柱B.圆锥C.球些行责急笑规D.圆台
- 3个回答在平行四边形ABCD中，∠A+∠C=220°，则∠D的度数是()A.70°B.80°C.90°D.1
0人关注该问题
+1
加载中...