博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2009年9月24日

excel不同列之间合并

摘要： Sub test() startMerge Sheet4, Sheet3 startMerge Sheet6, Sheet3 startMerge Sheet7, Sheet3 startMerge Sheet8, Sheet3 MsgBox "ok!", vbInformationEnd Sub'write new rowSub setNewRow() Dim i%, strTmp$ For i = 2 To Sheet3.UsedRange.Rows.Count Sheet3.Cells(i, 5) = "WXGA+で" & Sheet3.Cells(i, 4) & "(" & Sheet 阅读全文

posted @ 2009-09-24 15:05 随风飘零0 阅读(294) 评论(0) 推荐(0)