excel中怎么按字体彩色提取_CSS学习

资料来源：网络整理时间：2023/3/4 2:05:43 共计：3608 浏览

excel中怎么按字体彩色提取？

制作一个VB程序来解决： Sub tqhs()Dim Myr%, x%, n%, aa, y%, col%, Myc%Application.ScreenUpdating = FalseMyr = [a65536].End(xlUp).RowFor x =

1 To Myr col =

2 aa = Len(Cells(x, 1)) For y = 1 To aa If Cells(x, 1).Characters(y, 1).Font.ColorIndex =

3 Then n = 1 Cells(x, col) = Cells(x, col) & Cells(x, 1).Characters(y, 1).Text ElseIf n = 1 Then col = col + 1: n = 0 End If Next yNext xMyc = [a1].CurrentRegion.Columns.CountRange(Cells(1, 2), Cells(Myr, Myc)).Font.ColorIndex = 3Application.ScreenUpdating = TrueEnd Sub

版权说明：
本网站凡注明“广州京杭原创”的皆为本站原创文章，如需转载请注明出处！
本网转载皆注明出处，遵循行业规范，如发现作品内容版权或其它问题的，请与我们联系处理！
欢迎扫描右侧微信二维码与我们联系。

·上一条：HTML网页表格代码编写_CSS学习 | ·下一条：dhtml是一种表格的缩写对不对_CSS学习