将列数据中前4位加个点，后面是每两位加个点怎么用VBA或者公式实现呀

1565785678

求助：将列数据中前4位加个点，后面是每两位加个点变成C列的结果，怎么用VBA或者公式实现呀？如果是字符串的话用VBA怎么实现呀

sqrall900

=LEFT(REPLACE(A2,5,2,"."&MID(A2,5,2)&"."),LEN(A2)+2^(LEN(A2)>6))

1565785678

sqrall900 发表于 2024-11-5 12:56
=LEFT(REPLACE(A2,5,2,"."&MID(A2,5,2)&"."),LEN(A2)+2^(LEN(A2)>6))

谢谢大佬，如果是字符串的话那用VBA怎么做呀

shiruiqiang

只有6位或8位，格式替换。如果不确定的位数，mid

风过天涯

是这样吗？刚才逻辑有点问题，修改了一下，简单打了注释

mjm04

SEQUENCE 函数来偷个鸡

=TEXTJOIN(".",1,LEFT(A2,4),MID(A2,SEQUENCE(,100,5,2),2))
下拉

xlj310

既然都已经公式了，也免得下拉了，直接Scan了
=SCAN("",A2:A12,LAMBDA(X,y,TEXTJOIN(".",1,LEFT(y,4),MID(y,SEQUENCE(,100,5,2),2))))

风过天涯

xlj310 发表于 2024-11-5 14:02
既然都已经公式了，也免得下拉了，直接Scan了
=SCAN("",A2:A12,LAMBDA(X,y,TEXTJOIN(".",1,LEFT(y,4 ...

看公式像看天书，就像看我们财务的函数公式一样

翁知江安

Sub 加点()
Dim i, j, k, s, t, m
Dim irow
Dim arr
irow = Sheet1.[a65336].End(xlUp).Row
arr = Sheet1.Range("a1:c" & irow - 3)
Sheet1.Range("c2:c" & irow - 3).Clear
For i = 2 To irow - 3
  t = Len(arr(i, 1))
  If t <= 4 Then
     Sheet1.Cells(i, 3) = arr(i, 1)
     Else
        If t <= 6 Then
         Sheet1.Cells(i, 3) = Application.WorksheetFunction.Substitute(arr(i, 1), Left(arr(i, 1), 4), Left(arr(i, 1), 4) & ".")
         Else
          k = Int((t - 1) / 2) - 1
          s = Application.WorksheetFunction.Substitute(arr(i, 1), Left(arr(i, 1), 4), Left(arr(i, 1), 4) & ".")
          For m = 2 To k
            s = Application.WorksheetFunction.Substitute(s, Left(s, 3 * m + 1), Left(s, 3 * m + 1) & ".")
          Next
          Sheet1.Cells(i, 3) = s
          End If
    End If
Next
End Sub

翁知江安

可以测试一下，供参考