'VBA Sub a() Dim i As Integer With ActiveSheet For i = 1 To .UsedRange.Rows.Count .Cells(i, 2) = Len(.Cells(i, 1)) - Len(Replace(.Cells(i, 1), ";", "")) Next End With End Sub
2,463
社区成员
10,807
社区内容
加载中
试试用AI创作助手写篇文章吧