数值提取加入间隔符

乐器批发

Peny2020

TEXTJOIN(".",TRUE,,A16:CU16)

静听溪流

可以用textjoin函数   没有的话  估计费劲

tiger1976

Sub lll()

    Dim i As Integer
    Dim k As Integer
    Dim str As String
   
    i = Cells(16, Columns.Count).End(xlToLeft).Column
    For k = 1 To 16384
        On Error GoTo line
        If Application.WorksheetFunction.IsNumber(Cells(16, k) * 1) Then
            str = str & Cells(16, k) & "."
        End If
    Next
line:    Cells(23, 3) = str
End Sub

乐器批发

Peny2020 发表于 2024-2-22 13:35
TEXTJOIN(".",TRUE,,A16:CU16)

大哥，你这公式不行啊，我用的是EXCEL2010版本的

乐器批发

tiger1976 发表于 2024-2-22 14:16
Sub lll()

    Dim i As Integer

老师 没有函数公式吗？

yao_ashuai

用的笨方法

世界客都

乐器批发 发表于 2024-2-22 17:17
大哥，你这公式不行啊，我用的是EXCEL2010版本的

还是升级一下版本吧，wps有很多365的函数还免费。

乐器批发

yao_ashuai 发表于 2024-2-22 17:38
用的笨方法

老师，你这个公式不对啊，我这个2010版本的也不支持这个公式啊，显示错误符号的

tmplinshi

1. =REPLACE(SUBSTITUTE(TEXT(A16,":00;;;")&TEXT(B16,":00;;;")&TEXT(C16,":00;;;")&TEXT(D16,":00;;;")&TEXT(E16,":00;;;")&TEXT(F16,":00;;;")&TEXT(G16,":00;;;")&TEXT(H16,":00;;;")&TEXT(I16,":00;;;")&TEXT(J16,":00;;;")&TEXT(K16,":00;;;")&TEXT(L16,":00;;;")&TEXT(M16,":00;;;")&TEXT(N16,":00;;;")&TEXT(O16,":00;;;")&TEXT(P16,":00;;;")&TEXT(Q16,":00;;;")&TEXT(R16,":00;;;")&TEXT(S16,":00;;;")&TEXT(T16,":00;;;")&TEXT(U16,":00;;;")&TEXT(V16,":00;;;")&TEXT(W16,":00;;;")&TEXT(X16,":00;;;")&TEXT(Y16,":00;;;")&TEXT(Z16,":00;;;")&TEXT(AA16,":00;;;")&TEXT(AB16,":00;;;")&TEXT(AC16,":00;;;")&TEXT(AD16,":00;;;")&TEXT(AE16,":00;;;")&TEXT(AF16,":00;;;")&TEXT(AG16,":00;;;")&TEXT(AH16,":00;;;")&TEXT(AI16,":00;;;")&TEXT(AJ16,":00;;;")&TEXT(AK16,":00;;;")&TEXT(AL16,":00;;;")&TEXT(AM16,":00;;;")&TEXT(AN16,":00;;;")&TEXT(AO16,":00;;;")&TEXT(AP16,":00;;;")&TEXT(AQ16,":00;;;")&TEXT(AR16,":00;;;")&TEXT(AS16,":00;;;")&TEXT(AT16,":00;;;")&TEXT(AU16,":00;;;")&TEXT(AV16,":00;;;")&TEXT(AW16,":00;;;")&TEXT(AX16,":00;;;")&TEXT(AY16,":00;;;")&TEXT(AZ16,":00;;;")&TEXT(BA16,":00;;;")&TEXT(BB16,":00;;;")&TEXT(BC16,":00;;;")&TEXT(BD16,":00;;;")&TEXT(BE16,":00;;;")&TEXT(BF16,":00;;;")&TEXT(BG16,":00;;;")&TEXT(BH16,":00;;;")&TEXT(BI16,":00;;;")&TEXT(BJ16,":00;;;")&TEXT(BK16,":00;;;")&TEXT(BL16,":00;;;")&TEXT(BM16,":00;;;")&TEXT(BN16,":00;;;")&TEXT(BO16,":00;;;")&TEXT(BP16,":00;;;")&TEXT(BQ16,":00;;;")&TEXT(BR16,":00;;;")&TEXT(BS16,":00;;;")&TEXT(BT16,":00;;;")&TEXT(BU16,":00;;;")&TEXT(BV16,":00;;;")&TEXT(BW16,":00;;;")&TEXT(BX16,":00;;;")&TEXT(BY16,":00;;;")&TEXT(BZ16,":00;;;")&TEXT(CA16,":00;;;")&TEXT(CB16,":00;;;")&TEXT(CC16,":00;;;")&TEXT(CD16,":00;;;")&TEXT(CE16,":00;;;")&TEXT(CF16,":00;;;")&TEXT(CG16,":00;;;")&TEXT(CH16,":00;;;")&TEXT(CI16,":00;;;")&TEXT(CJ16,":00;;;")&TEXT(CK16,":00;;;")&TEXT(CL16,":00;;;")&TEXT(CM16,":00;;;")&TEXT(CN16,":00;;;")&TEXT(CO16,":00;;;")&TEXT(CP16,":00;;;")&TEXT(CQ16,":00;;;")&TEXT(CR16,":00;;;")&TEXT(CS16,":00;;;")&TEXT(CT16,":00;;;")&TEXT(CU16,":00;;;"),":","."),1,1,)

复制代码