列A包含一个ID号和一个字体：TF876 Brush Script。 B列中的每个单元格均包含唯一文本：此处为唯一文本
我想从A列复制字体名称并将其添加到B列，同时还要添加单词“ Font”。
B列中的最终结果应如下所示： 字体：画笔脚本 独特的文字在这里
我是VBA的初学者，有人可以向正确的方向推动我吗？
非常感谢！
答案 0 :(得分：1)
如Comment中所述（并且Q解释不同于其他As）：
="Font: "&MID(A1,FIND(" ",A1),LEN(A1))&" "&B1
向下复制以适合，复制列和选择性粘贴，值位于ColumnB顶部
OR
插入新的ColumnB并应用：
="Font: "&MID(A1,FIND(" ",A1),LEN(A1))&" "&C1
答案 1 :(得分：0)
Range.Font属性可用于获取字体名称。下面的代码从单元格A1中读取字体名称，并将其记录在单元格B1中。
Sheets("Sheet1").Range("B1") = Range("A1").Font.Name
您可能想使用连接功能添加所需的前缀/后缀。
答案 2 :(得分：0)
在同一列中同时具有字体编号和字体名称将添加任务。在下面的代码中，我假定您可以将它们分解，也许在A列中的数字和在B列中的名称。下面的代码将为B列中的C列相邻单元格设置名称。对B列中所有使用的行执行此操作。您可以通过更改分配给常量的值来更改列。
...
Step 2/19 : ENV "HTTP_PROXY" "xxx.xxx.xxx.xxx" "HTTPS_PROXY" "xxx.xxx.xxx.xxx" "NO_PROXY" "127.0.0.1,localhost,172.30.0.1,.svc,.cluster.local" "http_proxy" "xxx.xxx.xxx.xxx" "https_proxy" "xxx.xxx.xxx.xxx" "no_proxy" "127.0.0.1,localhost,172.30.0.1,.svc,.cluster.local"
...
设置代码并不一定意味着显示会相应更改。 Excel将接受不可用的字体名称-不执行任何操作。