求助完善代码或重写代码，谢谢！！

dzsrmyh

现有代码对单元格数据如果是由公式得到的无效，如果单元格数据是直接输入的话就能达到效果。

dzsrmyh

别沉下去了，顶上去

zjzyj

SelectionChange是选区变化事件，而贴主的代码内容却是与选区变化无关的，因此感觉贴主用错事件了

dzsrmyh

zjzyj 发表于 2023-2-26 14:33
SelectionChange是选区变化事件，而贴主的代码内容却是与选区变化无关的，因此感觉贴主用错事件了

谢谢回复，那应该怎么用呢？

mmwwdd

这个真不会，这是设置非汉字的字体格式

清风竹-

请看附件。

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br, i&, n&
   
    ar = [A1].CurrentRegion
    ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
   
    For i = 1 To UBound(ar)
        If ar(i, 2) <> "" Then
            n = i: br(n, 1) = ar(i, 2)
        End If
        br(n, 2) = br(n, 2) + 1
    Next i
    For i = 1 To UBound(br)
        If br(i, 1) <> "" Then br(i, 1) = br(i, 1) & br(i, 2) & "人"
    Next i
   
    [D1].Resize(UBound(br)) = br
    Beep
End Sub

gwjkkkkk

参与 一下。。。

dzsrmyh

清风竹- 发表于 2023-2-26 15:07
请看附件。

谢谢您的回复，如果要添加分别设置汉字和字母汉字的代码呢？

dzsrmyh

gwjkkkkk 发表于 2023-2-26 16:31
参与 一下。。。

你好，好象没有变化呢