第四章作业参考***_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
第四章作业参考***
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩5页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢网页设计教程与开发
提供各种常见网页效果
提供各种各样的设计教程
装扮QQ，让QQ变得更酷
设计参考，提高自升水平
学习服务器和操作系统
提供各种素材和工具
收藏学习资料
您现在的位置：&&>>&&>>&&>>&&>>&正文
怎么样设计一个excel地宏,来删除表中带有合并单元格地行?
如何编写一个excel的宏,来删除表中带有合并单元格的行?,急急.
这个问题第1个回答：
合并单元格是列合并还是行合并啊
这个问题第2个回答：
Sub DeleteMerge()
Dim i, j As Long
For i = 1 To ActiveSheet.Rows.Count 'change to the number you need
For j = 1 To ActiveSheet.Columns.Count
If ActiveSheet.Cells(i, j).MergeCells = True Then
ActiveSheet.Rows(i).Delete xlShiftUp
这个问题第3个回答：
简单一点的方法：
A1到B2是合并项
需要删除第2行中的数据
可以用以下方法
'AE2的含义是该行中的任意非合并项的单元格
Range(&AE2&).Select
Selection.EntireRow.Delete
这个问题第4个回答：
我开始是用2楼的方法，但是发现只能删列合并，如果是行合并的话，只会删除合并单元格的其中1行。所以要问楼主具体的情况和要求。
这个问题第5个回答：
如果是行合并的话，我的代码会删得还剩一行。
这个问题第6个回答：
谢谢，你们的回答太需要了。
这个问题第7个回答：
Sub DeleteMerge()
Dim i, j As Long
For i = 1 To ActiveSheet.Rows.Count 'change to the number you need
& & For j = 1 To ActiveSheet.Columns.Count
& & If ActiveSheet.Cells(i, j).MergeCells = True Then
& & ActiveSheet.Rows(i).Delete xlShiftUp
& & i = i - 1
& & Exit For
& & End If
& & Next j
把ActiveSheet.Rows(i).Delete xlShiftUp
Rows(ActiveSheet.Cells(i, j).MergeArea.Row & &:& & ActiveSheet.Cells(i, j).MergeArea.Row + ActiveSheet.Cells(i, j).MergeArea.Count - 1).Delete Shift:=xlUp
转载请注明:破洛洛(谢谢合作)
上一篇文章： 下一篇文章：
网友评论：查看: 1007|回复: 15
去掉单元格最后一个逗号
阅读权限30
在线时间 小时
A列有这么些数字
1-17,1-2,1-19,
如何把最后一个逗号删除掉啊。
阅读权限30
在线时间 小时
&&=LEFT(A2,LEN(A2)-1)
阅读权限30
在线时间 小时
=LEFT(A2,LEN(A2)-1)
我要用代码，因为还有一些其他的，我就不懂怎么去掉这个最后的逗号。
阅读权限20
在线时间 小时
我要用代码，因为还有一些其他的，我就不懂怎么去掉这个最后的逗号。
前面加一个worksheetfunction了。
阅读权限30
在线时间 小时
可是我还是需要循环呢？
阅读权限95
在线时间 小时
可是我还是需要循环呢？
把你的代码放上来看看啊。
阅读权限30
在线时间 小时
把你的代码放上来看看啊。
很郁闷，公司没办法传附件，好郁闷。
我的思路是想要做一个
将2个EXCEL放在同一个文件夹下面，运行TOP的，然后根据TOP中的B列，去比对BOT中的B列
当BOT中B列的数据等于TOP中B列的，则将BOT中的A列显示在TOP中的F列中。
& && && && && && && && && && && && & & &&&TOP
备注栏后的站位为BOT生产时所在的站位，上料时请认真核对料号-TOP-NXT上料表　料站物料代码旧料号料架单机备注　1-5XCCS8mm142-5　1-6XCCS8mm4　　1-7XRJS8mm61-9　4-16XCCS8mm41-14　4-17SILERGY+DCDC+SY8088AAC+SOT23-58mm4　　4-19XICRS_AO3401A-B8mm2　　4-20XCCS8mm22-12　
　-TOP-XP242上料表　料站物料代码新料号料架单机备注　1-16XICQ_LMV614MTX12mm2　　1-17XCD11-T_100U/16V12mm2　　1-19XJMUSBS_5P24mm2　　1-21XJPS_2X16S8-Z32mm2　　2-2JSC+MCP+1G+512M+JSFA9C2NA3ABA+FBGA&&130--2　　2-11BROADCOM+ARM11+BCM5892PC0KFB266G/T+BGA400+266MHZ--2　　& && && && && && && && && && && && && && &&&& && && && &&&BOT
-BOT-NXT上料表料站物料代码旧料号料架单机备注1-1XRJS0402_10K8mm16　1-2XRJSK8mm10　4-14XCTSKV12mm2　4-16XCTSKV-H12mm4　
-BOT-XP242上料表料站物料代码新料号料架单机备注1-17XFE+12PIN+0.5MM间距+贴片+抽屉式+下接触+单排+镀锡+0.5-11-12PBX-B-P24mm2　1-19XJPCS_24P0-U-XFE32mm2上接触1-21XGTVS_SMBJ6A-Y12mm2　1-29XGDN_SMBJ15A12mm2　1-30TI+马达驱动芯片+DRV8833CPWPR+HTSSOP1612mm2　
Sub sy_chk()
Sheet1.Range(&F4:F& & [F65536].End(xlUp).Row).ClearContents
Dim Filename As String
Dim xlApp As New Excel.Application
On Error Resume Next
Set xlApp = CreateObject(&Excel.Application&)
Filename = ThisWorkbook.Path & &\料表-BOT.xls&
If Err.Number && 0 Then
xlApp.DisplayAlerts = False '不显示对话框
Workbooks.Open Filename
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(Filename)
Set xlsheet1 = xlBook.Worksheets(1)
Err.Clear: On Error GoTo 0
End If
MaxrowT = Sheet1.[a65536].End(xlUp).Row
arr = Sheet1.Range(&a4:f& & MaxrowT)
MaxRowB = xlsheet1.[a65536].End(xlUp).Row
brr = xlsheet1.Range(&a3:f& & MaxRowB)
m = 4
For i = 1 To UBound(arr)
LhT = arr(i, 2)
For j = 1 To UBound(brr)
LhB = brr(j, 2)
LzB = brr(j, 1)
If Not VBA.IsNumeric(LhT) Then '判断为非数字
Sheet1.Cells(m, 6) = &备注&
GoTo nexti
End If
If LhT = LhB And LhT && && Then
arr(i, 6) = LzB & &,& & arr(i, 6)
Sheet1.Cells(m, 6) = arr(i, 6)
End If
Next j
nexti:
m = m + 1
End If
Next i
End Sub复制代码
阅读权限100
在线时间 小时
arr = [a1:a20] '范围
For i = 1 To UBound(arr) '循环
& & If Right(arr(i, 1), 1) = &,& Then arr(i, 1) = &'& & Left(arr(i, 1), Len(arr(i, 1)) - 1)
[a1:a20] = arr
阅读权限95
在线时间 小时
如果是内存数组，可以这样：=substitute(trim(substitute(A1,&,&,& &)),& &,&,&)
阅读权限100
在线时间 小时
str=&12,456,35,&
str=left$(str,len(str)-1)复制代码
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师Excel中如何批量删除同列单元格中最后一个字符？
Excel中如何批量删除同列单元格中最后一个字符？
09-02-25 &
在B1中输入公式： =LEFT(A1,LEN(A1)-1)并将其下拉复制到B列的其他单元格当中B列的数据就是你要的结果
请登录后再发表评论!
在B1中输入公式： =LEFT(A1,LEN(A1)-1) 并将其下拉复制到B列的其他单元格当中 B列的数据就是你要的结果
请登录后再发表评论!