Question

excel vba如何选取合并单元格

Sub qqq()
[t25].Select
For Each c In Selection
c.Value = Left(c.Value, Len(c.Value) -17)
Next
[t27].Select
For Each c In Selection
c.Value = Left(c.Value, Len(c.Value) -14)
Next
[t29].Select
For Each c In Selection
c.Value = Left(c.Value, Len(c.Value) -10)
Next
[t31].Select
For Each c In Selection
c.Value = Left(c.Value, Len(c.Value) -19)
Next
..........
End Sub
这里只能删除t25单元的，而t27、t29、t27、t31、.....等不能删除

Answer 1

建议楼主截图看看吧
[t25].Select
For Each c In Selection
c.Value = Left(c.Value, Len(c.Value) -17)
Next
上面这段代码，只能修改Selection.CELLS(1)这个单元格对应的内容
其他的实际上其他对应的都是空白
也就是说，如果[t25]是个合并单元格，那么上面的代码是要报错的

追问

[t25]是合并单元 。但是没报错
只是删除t25内容，就停止了，不再执行t27、t29、t31、.....等
请问如何修改代码

追答

没有附件，不了解表格结果
这个没法修改的
而且楼主提到的删除，就是截取了部分数据而已

以其中一个为例吧
[t25].Select
set c=Selection.cells(1)
c.Value = Left(c.Value, Len(c.Value) -17)
看看这个是否可行吧

追问

追答

这个表格跟程序里的区域对不上啊

追问

可以修改区域啊

Answer 2

合并单元格只有第一格有内容，循环毫无意义。