求助大佬帮忙写个字符串连接的vba

talentdong

小白求助，想了半天没有思

talentdong

自己顶一下，有可以实现的公式也成，万分感谢！

duquancai

split  groupby combine

三板斧

talentdong

duquancai 发表于 2020-6-6 18:48
split  groupby combine

三板斧

大佬，帮忙写个呗

duquancai

talentdong 发表于 2020-6-6 19:04
大佬，帮忙写个呗

可以，有空写一个  ，但是Python语言的，vba的不想写。

xiangbaoan

Option Explicit
Sub test()
Dim ar, i&, k&, s$
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("a1:a" & i).Offset(, 1).Resize(, 1).ClearContents
ar = Range("a1:b" & i)
ar(i, 1) = Space(123) & "!--?"
For i = 1 To UBound(ar) - 1
    s = s & "+" & ar(i, 1)
    If Split(ar(i, 1), "-")(0) <> Split(ar(i + 1, 1), "-")(0) Then
        k = k + 1
        ar(k, 2) = Mid(s, 2)
        s = ""
    End If
Next
Range("a1").Resize(i - 1, 2) = ar
End Sub

talentdong

xiangbaoan 发表于 2020-6-6 19:42
Option Explicit
Sub test()
Dim ar, i&, k&, s$

万分感谢，完美实现！

duquancai

talentdong 发表于 2020-6-6 19:04
大佬，帮忙写个呗

1. # -*- coding: utf-8 -*-
   
2. # version: Python 3.7.0
   
3. import pandas as pd
   
4. 
   
5. df = pd.read_excel('./合并.xlsx',usecols='A',header=None,names='A')
   
6. df.groupby(df['A'].str.extract(r'^(\d+)',expand=False)).agg(
   
7.     字符串聚合=('A',lambda s:'+'.join(s))
   
8. ).to_excel('./字符串分组聚合.xlsx',index=False)

复制代码