发布网友 发布时间:2022-04-23 00:38
共3个回答
热心网友 时间:2023-09-06 04:26
Sub s()
n = [e8:ae8].Count
For i = 1 To n
If [e8:ae8].Item(i) <> "" Then
m = Len([e8:ae8].Item(i))
For j = 1 To m
[e9:ae9].Item(i).Characters(j, 1).Font.Color = [e8:ae8].Item(i).Characters(j, 1).Font.Color
Next
End If
Next
End Sub
热心网友 时间:2023-09-06 04:27
选择性粘贴,选格式
热心网友 时间:2023-09-06 04:27
好追问http://pan.baidu.com/s/1qWCGeHe详细见文件
追答先