问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

wps表格 VB编辑器 带格式合并单元格,如何批量操作?

发布网友 发布时间:2022-05-16 10:11

我来回答

1个回答

热心网友 时间:2023-10-19 08:41

执行示例:

程序代码:

程序代码文本如下(文本仅供参考,浏览器可能删除部分特殊符号和对齐空白):

Option Explicit

Sub 宏1()
Dim arr1, arr2, i&, j&
arr1 = Range("a1:c4")
ReDim arr2(1 To UBound(arr1), 1 To 1)
For i = 1 To UBound(arr1)
For j = 1 To 3
arr2(i, 1) = arr2(i, 1) & arr1(i, j)
arr1(i, j) = Len(arr1(i, j))
Next j
Next i
Range("d1:d4") = arr2
For i = 1 To UBound(arr1)
For j = 1 To Len(arr2(i, 1))
If j <= arr1(i, 1) Then
Cells(i, 4).Characters(j, 1).Font.Bold = Cells(i, 1).Characters(j, 1).Font.Bold
ElseIf j <= arr1(i, 1) + arr1(i, 2) Then
Cells(i, 4).Characters(j, 1).Font.Bold = Cells(i, 2).Characters(j - arr1(i, 1), 1).Font.Bold
Else
Cells(i, 4).Characters(j, 1).Font.Bold = Cells(i, 3).Characters(j - arr1(i, 1) - arr1(i, 2), 1).Font.Bold
End If
Next j
Next i
End Sub


声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
荣耀v20杀后台严重? 聊天时哪些回复让人感觉不舒服? 货物运输保险案例分析 卞和泣玉注释 求解,卞和泣玉没学过,在线等解。 葛加走之底读什么 在等腰三角形ABC中,AB=AC=5,BC=6,求角B的三角函数值 ...人开走一架战斗机,在一架客机下面飞,好几个飞机来拦截, ...话是三架飞机 机型各不同 在山区飞行发现恐怖分子用驴车运核弹 用AK... ...的成为战斗机飞行员。战争结束回国继续抢银 水星mw325r无线路由器电源是几伏的 水星路由器310R能用12vDc1a电源吗? 怎么把微信上的文件传到u盘 13个月幼儿那都不热就是腋下体温37.5算发烧吗? 招行信用卡没出账的可以支付宝还吗 我想在门外安装个密码器,别人输入密码,密码可通过wifi推送至我的手机,用哪些设备可以容易实现 哪款wifi密码器最好用 四川重庆春节习俗简略 火车卧铺图片硬卧包吃饭吗 - 信息提示 我的笔记本电脑安装win10之后,无线就不见了!!什么标志都找不到!! 为什么我的电脑安装win10专业版后一直没声音? 为什么我的电脑从win10安装了没有声音? WPS表格里输入邮件地址后老是直接变成连接,怎么取消? 怎么才能把QQEmail地址解除掉,我想重搞个 如何取消电子邮件地址 我以前绑定了&quot;绑定QQ.com&#47;Foxmail.com的邮件地址&quot;,我想重新弄过,要怎样做啊? 即墨紫峰报名大厅叉车证考试怎么考? 青岛紫峰报名大厅考高压电工证证多久下证? 青岛市紫峰报名大厅的电工证不用培训直接能考过么? 哪个软件下载的游戏可以QQ登录并且充值的时候可以用话费充值 怎么把微信通话声音调小 怎样养盆栽的小榆树呢? 电脑失声了如何一键恢复? 华为nova7se5G文本转语音怎么不行呢? 用翩字组词,有没有翩度这个词? 极限挑战大姐是哪一期 《极限挑战》第三季第五期女嘉宾都有谁? 极限挑战5个女嘉宾是哪一期 极限挑战五位女嘉 极限挑战第三季 女神来了是哪一期 孙红雷姚晨极限挑战那是哪一期 郭京飞王珞丹坐雕塑脚踩石碑引争议,他们该被理解吗? 各地区对外承包出租车条件 极限挑战第三季林志玲哪一期播出 《极限挑战》有哪些明星 《极限挑战》明 极限挑战姚晨哪一期 极限挑战第三季迪丽热巴会参加吗哪一期出现 qq怎么提取图片中的文字 福建泉州的钢筋一吨多少钱 家里面想盖房子,想知道钢筋的价格 多少钱一吨!最好晋江的