几个单元格内容合并仍保留原来的字体颜色

aman1516

把每个单元格内的值、长度、每个字符的属性等需要的元素放数组内，组合字符串时，再调用设置就行了，
将单元格内容字符属性放入数组的另一个好外，无论怎样组合，都可按每个字符的原属性进行输出，
不仅颜色，包括字体、大小、及其它........

gwjkkkkk

li446425169 发表于 2022-9-8 18:37
老师你好，谢谢您的帮助

我试了一下如果改变数据区域，代码好像就不能用了，是不是只能是在1楼附件内 ...

需要改代码的。。。

xzcdcak

用这个就不要改代码了
Sub retest()
    Dim a&, b&, c&, d&, arr, brr, T&, i&, j&, rg As Range, rng As Range, x As Integer
    Set rg = Application.InputBox("请选择数据源单元格区域", "选取提示", , , , , , 8)
    Set rng = Application.InputBox("请选择输出结果单元格区域", "选取提示", , , , , , 8)
    rng.ClearContents
    arr = rg
    a = rg.Row
    b = rg.Rows.Count
    c = rg.Column
    d = rg.Columns.Count
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        brr(i, 1) = Join(Application.Index(arr, i), "   ")
        Next i
        rng = brr
        T = 1
        For i = 1 To UBound(arr)
            For j = 1 To UBound(arr, 2)
                Cells(a + i - 1, c + d + 1).Characters(Start:=T, Length:=Len(arr(i, j))).Font.Color = Cells(a + i - 1, j + c - 1).Font.Color
                T = Len(arr(i, j)) + 3 + T
            Next j
                T = 1
        Next
End Sub

xzcdcak

我作了个教程可能能帮到你。

li446425169

xzcdcak 发表于 2022-9-8 22:27
我作了个教程可能能帮到你。

谢谢老师的帮助

aman1516

按单元格整体格式处理还好些，
若再精细到单元格内每个字符格式，抽空测试了一下，数据多时速度就太慢了，
这样的需求，也只能针对特定场景的吧

blackttea1

学习啦，谢谢

xzcdcak

aman1516 发表于 2022-9-8 21:59
把每个单元格内的值、长度、每个字符的属性等需要的元素放数组内，组合字符串时，再调用设置就行了，
将单 ...

上段代码我们学习下。我比较感兴趣。