【!SOS】起大早,请教个有关拆分单元格的问题。 如何判断一个单元格为合并单元格,然后将其拆分成若干最基本的小单元格,并将原来大单元格里的文字拷入到新生成的每个基本单元格中。期待诸位朋友的热心答复,谢谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Excel? Spread ? 还是MS的三个表格?还是其他? 下面是excel的示例,具体自己创建对象 Range("A1:I1").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("A1").Select Selection.AutoFill Destination:=Range("A1:I1"), Type:=xlFillDefault Range("A1:I1").Select 要学会 Google,这种问题不是你第一个问。http://topic.csdn.net/u/20100926/17/61d81407-2890-41d6-a923-e8334beaf908.html 在excel中操作,录制宏,再看代码 VB6软件,货币型的金额为什么在有的XP上自动四舍五入了 有哪位用ie7或ie7内核浏览器的朋友帮忙试试。 我想实现,在窗体能显行我的当前记录的行号?怎么办啊? VB网络编程问题 如何用sendkeys、sendmessage或keybd_event给dos窗口发送指定的数字!急急急! vb6.0找不到工程或库怎么办 如何实现图片放大后无锯齿及不变模糊? 同时向几个表中添加同样的数据,有疑问,请指教! FTP上是否存在某个文件 急求局域网通信原理!!! 求一条sql语句 VB+MYSQL 多线程
Range("A1:I1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:I1"), Type:=xlFillDefault
Range("A1:I1").Select
http://topic.csdn.net/u/20100926/17/61d81407-2890-41d6-a923-e8334beaf908.html