excel不同列之间合并
来源:互联网 发布:sql 2005 sp3 x64 编辑:程序博客网 时间:2024/05/29 19:55
Sub test()
startMerge Sheet4, Sheet3
startMerge Sheet6, Sheet3
startMerge Sheet7, Sheet3
startMerge Sheet8, Sheet3
MsgBox "ok!", vbInformation
End Sub
'write new row
Sub setNewRow()
Dim i%, strTmp$
For i = 2 To Sheet3.UsedRange.Rows.Count
Sheet3.Cells(i, 5) = "WXGA+で" & Sheet3.Cells(i, 4) & "(" & Sheet3.Cells(i, 3) & "):静的なForm"
Sheet3.Cells(i, 6) = "WSXGA+で" & Sheet3.Cells(i, 4) & "(" & Sheet3.Cells(i, 3) & "):静的なForm"
Next
End Sub
'merge objSource to objDirect
Private Sub startMerge(objSource As Object, objDirect As Object)
Dim i%, strTmp$
For i = 2 To objSource.UsedRange.Rows.Count
strTmp = getTitleByID(objSource, objDirect.Cells(i, 1).Text)
If strTmp <> "" Then objDirect.Cells(i, 4) = strTmp
Next
End Sub
'get objSheet's title
Private Function getTitleByID(objSheet As Object, strID$) As String
Dim i%
For i = 1 To objSheet.UsedRange.Rows.Count
If objSheet.Cells(i, 1).Text = strID Then
getTitleByID = Trim(objSheet.Cells(i, 4).Text)
Exit For
End If
Next
End Function
- excel不同列之间合并
- EXCEL合并多列
- Excel列合并
- excel 合并列植
- Excel多列插入合并
- excel比较两列不同
- poi导出excel合并单元格(包括列合并、行合并)
- 在Excel表格中合并列
- 2010 Microsoft Office Excel 多列合并
- JS 合并列,导出excel,word
- EXCEL 合并两列的内容
- JXL Excel模版下载[列合并](2)
- Excel动态合并行、合并列
- 通过集算器将excel数据按列合并
- excel多列合并关联数据
- js动态合并单元格(指定的列或之间列)
- Excel不同列多条件计数
- EXCEL列名与数字之间转换
- Flex入门教材 Flex in a week(Video+源码)
- 密码管理软件KeePass
- izpack是一个用于解决安装程序制作的Builder工具
- 如何根据程序崩溃时的DMP文件使用WinDbg查找调用堆栈
- 使用Xmanager远程管理CentOS5.3配置
- excel不同列之间合并
- 定时关机
- 很高兴来到这里!
- 搜狐2010校园招聘第一站北邮笔试题
- MOBILE过滤边缘贴图
- oracle创建索引
- l7sw
- Amazon Web Service的相关资料
- WEB架构设计的心得