7,762
社区成员
发帖
与我相关
我的任务
分享excel合并单元格问题？
我把数据倒出到excel
想先合并excel的cell（1，1）到cell（1，8）8个单元格，应该用怎么做啊？
想先合并excel的cell（1，1）到cell（1，8）8个单元格，应该用怎么做啊？
...全文
请发表友善的回复…
发表回复
viena 2005-01-14
- 打赏
- 举报
在excel里录制宏，编辑宏，就可以看到代码
fxy_2002 2005-01-14
- 打赏
- 举报
我在excel帮助中也找不到啊！！怎么找啊？
----
在 excel 中用“记录宏”的功能做你想用VB做的操作，然后再用 excel 的 visual basic 编辑器打开这个宏，就有 excel 的对象、常量等东东，拿到 vb 中直接用就行了！
----
在 excel 中用“记录宏”的功能做你想用VB做的操作，然后再用 excel 的 visual basic 编辑器打开这个宏，就有 excel 的对象、常量等东东，拿到 vb 中直接用就行了！
kylinhome 2005-01-14
- 打赏
- 举报
我在excel帮助中也找不到啊！！怎么找啊？
xayzmb 2005-01-13
- 打赏
- 举报
Excel帮助中有
kylinhome 2005-01-13
- 打赏
- 举报
行了，非常感谢！
我想问一下，那些象xlContinuous这种参数哪里查的啊？
msdn中有吗？
我想问一下，那些象xlContinuous这种参数哪里查的啊？
msdn中有吗？
viena 2005-01-13
- 打赏
- 举报
合并时里面不要有数据啊
先吧格式弄好了，再往里添数据
'居中
.Range(.Cells(1, 1), .Cells(1，8)).HorizontalAlignment = xlCenter
.Range(.Cells(1, 1), .Cells(1，8)).VerticalAlignment = xlCenter
'加边框
.Range(.Cells(1, 1), .Cells(1, 8)).Borders.LineStyle = xlContinuous
先吧格式弄好了，再往里添数据
'居中
.Range(.Cells(1, 1), .Cells(1，8)).HorizontalAlignment = xlCenter
.Range(.Cells(1, 1), .Cells(1，8)).VerticalAlignment = xlCenter
'加边框
.Range(.Cells(1, 1), .Cells(1, 8)).Borders.LineStyle = xlContinuous
xayzmb 2005-01-13
- 打赏
- 举报
xsheet.Range(.Cells(1, 1), .Cells(1, 8)).select
xsheet.selection.Merge
xsheet.selection.Merge
kylinhome 2005-01-13
- 打赏
- 举报
可以合并了，但是倒出时出现提示框问是否合并，保留最左面的数据，怎么做才能不出现提示框？并且怎么做才能把合并的数据居中？加上边框？？？？
谢谢！！
谢谢！！
viena 2005-01-13
- 打赏
- 举报
'xsheet为EXCEL工作表象
xsheet.Range(.Cells(1, 1), .Cells(1, 8)).Merge
xsheet.Range(.Cells(1, 1), .Cells(1, 8)).Merge
