gpt4 book ai didi

excel - 在粗体和斜体Excel VBA中连接不同的单元格

转载 作者:行者123 更新时间:2023-12-02 18:06:02 25 4
gpt4 key购买 nike

Sub joint()
ActiveSheet.Range("a2", ActiveSheet.Range("a2").End(xlDown)).Select
Row = 2
col = 2
For Each Cell In Selection
country = Cells(Row, col)
Name = Cells(Row, col + 1)
honor = Cells(Row, col + 2)

Cells(Row, col + 8) = Name & ", " & country & ", " & honor

Row = Row + 1
Next
End Sub

我想以串联形式将名称加粗并用斜体表示荣誉。

例如

我的名字,pak,ABC

最佳答案

就在你的行之后:

Cells(Row, col + 8) = Name & ", " & country & ", " & honor

添加这一段代码:

With Cells(Row, Col + 8)
.ClearFormats
.Characters(1, Len(Name)).Font.Bold = True
.Characters(Len(Name) + 4 + Len(Country), Len(.Value)).Font.Italic = True
End With

其余部分保持原样。

结果截图: enter image description here

关于excel - 在粗体和斜体Excel VBA中连接不同的单元格,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17614718/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com