ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2400|回复: 22

[求助] 大神来帮帮忙,看看附件,有2个需求

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-4-25 17:48 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
公司不让用公式合并单元格内容,有2个问题希望大神帮忙解决下,谢谢!

1、任意区域内的2列单元格能够将后面1个单元格的内容合到前面的单元格内(不是合并2个单元格),要批量做的,如果单靠复制太繁琐了。

2、在1个单元格内带有颜色字体前后增加代码,这个不一定用VBA,可以的话,希望大神告诉我其他方法,VBA也可以,谢谢了,附件里有写!!

11.rar

7.66 KB, 下载次数: 8

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-4-25 17:54 | 显示全部楼层
有大神帮忙解答下吗

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-4-25 18:32 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
大神在哪里,哭哭哭

TA的精华主题

TA的得分主题

发表于 2018-4-25 19:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
skytutu1 发表于 2018-4-25 18:32
大神在哪里,哭哭哭

楼主,第一个问题用连接符 & 就可以解决
第二问题,难度是vb很难准确判断你的颜色,除非你明确 colorindex 的值是多少,那就很好解决
11.png

TA的精华主题

TA的得分主题

发表于 2018-4-25 19:43 | 显示全部楼层
  1. Public Sub CharConnection()
  2. Dim arr, i%
  3. arr = Range("b6").CurrentRegion
  4. For i = 1 To UBound(arr)
  5.     For j = 2 To UBound(arr, 2)
  6.         If arr(i, j) <> "" Then
  7.             arr(i, 1) = CStr(arr(i, 1)) & CStr(arr(i, j))
  8.         End If
  9.     Next
  10. Next
  11. [G:G].ClearContents
  12. [g6].Resize(UBound(arr), 1) = arr
  13. End Sub
复制代码

第一个问题的代码,第二个问题很难解决

TA的精华主题

TA的得分主题

发表于 2018-4-25 19:56 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
第2个问题”有颜色“ 什么颜色 非黑色 都算是有颜色?

TA的精华主题

TA的得分主题

发表于 2018-4-25 20:51 | 显示全部楼层
宏表函数中get.cell(24,"单元格")可以得到单元格内第一个字符的字体颜色,但是只限于第一个字符,VBA中字体的颜色都是通过range.font.colorindex获得的,经过检验,如下情况:
1,当单元格内只有一个字符时,colorindex可以获得颜色值。
2,当单元格内大于一个字符时,第一个字符如果有颜色,其他字符不带颜色或者带不同的颜色,colorindex不能获得颜色值,如果其他字符与第一个字符带相同的颜色,即所有字符颜色相同,colorindex可以获得颜色值。
3,当单元格内有多个字符,第一个字符没有颜色,其他字符带相同的颜色或者不同的颜色,colorindex不能获得颜色值。
4,当单元格内有多个字符,都没有颜色,colorindex=-4105 错误值。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-4-26 00:01 | 显示全部楼层
不知道为什么 发表于 2018-4-25 19:09
楼主,第一个问题用连接符 & 就可以解决
第二问题,难度是vb很难准确判断你的颜色,除非你明确 colorind ...

谢谢大神,不能用&,用了的话,单元格内只是显示111122222,实际不是。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-4-26 00:02 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
气愤excel 发表于 2018-4-25 19:43
第一个问题的代码,第二个问题很难解决

谢谢大神,第二个不能解决的话,我就手动自己复制黏贴,涉及到1个单元格内有多行文字,多行文字中有的文字是带颜色的。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-4-26 00:03 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
会飞的鱼kk 发表于 2018-4-25 19:56
第2个问题”有颜色“ 什么颜色 非黑色 都算是有颜色?

对的,非黑色,红色什么的,这种算是有颜色的。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 22:13 , Processed in 0.051345 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表