按指定条件连接A列数据

WYS67

micch 发表于 2018-12-20 13:44
那你这自定义函数够费劲的，为了使用，还得先选中足够大的区域才行；

至少要比第一参数区域的1/3要大 ...

老师：您从1楼下面的代码里，能够看出计算结果开始显示时的行号是哪一句吗？

micch

WYS67 发表于 2018-12-20 13:47
其实，平时用的时候并不需要这么大区域，只需根据实际需要预定就可。

嗯，如果你把函数作为区域数组函数使用，那么如果你选中的区域比函数返回的结果大，那么超出部分就得到错误值，如果比函数返回的结果小，那你选中的区域就显示不全返回的结果。

只有你选中区域和结果大小一致，才能正确返回结果。

如果我这样理解是对的话，那么这个函数每次使用岂不是还得先知道结果是多少组才行？？

WYS67

lsdongjh 发表于 2018-12-20 13:50
先问个小问题：【用53除以3，得出整数18和余数2】

你能告诉我，数学哪位老师教的，你去狠狠地削一顿：53 ...

老师：B2里的公式是：=MOD(A2-2,3)，中间那个“2”，代表减去D1显示的A列最后两个数据。原附件和截图有错误，感谢老师提醒，已在1楼里更正。

WYS67

micch 发表于 2018-12-20 14:02
嗯，如果你把函数作为区域数组函数使用，那么如果你选中的区域比函数返回的结果大，那么超出部分就得到错 ...

      如果选中的区域比函数返回的结果大，那么超出部分显示为空白。区域公式的预置区域肯定会比源数据大！所以不存在比函数返回的结果小，选中的区域就显示不全返回的结果；只有在第三参数显示位置的指定行号包括的行数，少于A列数据连接成的三位数总个数时，才会出现计算结果显示不全的现象，解决办法是：如指定H5为30，在G5:G100000里输入公式{ =SSLJ(A5:A100000,0,H1)，则代表计算结果只能显示在G5:G30的26个单元格里。如果A列数据连接成的三位数总个数超过26个，采取截头方法--去掉上边的三位数，只显示最后26个三位数，以确保A列最后一个三位数恰好显示在G30单元格里。

WYS67

micch 发表于 2018-12-20 14:02
嗯，如果你把函数作为区域数组函数使用，那么如果你选中的区域比函数返回的结果大，那么超出部分就得到错 ...

原附件的模拟结果有错，经lsdongjh老师提醒，已在1楼里出现上传了正确的附件。

micch

我得继续琢磨琢磨去，得出结果容易，就是这个参数不大懂，还得再研究研究

WYS67

micch 发表于 2018-12-20 14:43
我得继续琢磨琢磨去，得出结果容易，就是这个参数不大懂，还得再研究研究

老师：您可以把1楼的代码复制粘贴进附件里，再把I22:I27的公式也复制粘贴进C:H列，通过增减A列源数据，显示的计算结果，就能看出端倪。

lsdongjh

1. 
   
2. Function SSLJ(rgData As Range, Optional LineType As Variant = "", Optional DispLocation As Variant = "") As Variant
   
3.     Dim rgFormula As Range '公式所在区域
   
4.     Dim arrData As Variant, strResult() As String
   
5.     Dim lngRows As Long, lngCols As Long
   
6.     Dim lngR As Long, lngC As Long
   
7.     Dim strTemp As String, strLast As String
   
8.     Dim lngLen As Long, lngMod As Long
   
9.     Dim arrTemp As Variant, lngIndex As Long
   
10.     Dim lngLineType As Long, lngDispLocation As Long
    
11.    
    
12.    
    
13.    
    
14.     Set rgFormula = Application.Caller
    
15.     lngRows = rgFormula.Rows.Count
    
16.     lngCols = rgFormula.Columns.Count
    
17.     ReDim strResult(1 To lngRows, 1 To lngCols) As String
    
18.    
    
19.     If LineType = "" Then
    
20.         lngLineType = 0
    
21.     Else
    
22.         lngLineType = Val(LineType)
    
23.     End If
    
24.    
    
25.     If DispLocation = "" Then
    
26.         lngDispLocation = 0
    
27.     Else
    
28.         lngDispLocation = Val(DispLocation) - rgFormula.Row
    
29.     End If
    
30.    
    
31.    
    
32.     If rgData.Rows.Count < 3 Then Exit Function '如果不足3行，直接退出
    
33.    
    
34.     arrData = rgData
    
35.     arrData = Application.WorksheetFunction.Transpose(arrData)
    
36.     strTemp = Join(arrData, ""):    strTemp = Replace(strTemp, Space(1), "")
    
37.     lngLen = Len(strTemp)
    
38.     strLast = Mid(strTemp, lngLen - 1):    strTemp = Mid(strTemp, 1, lngLen - 2)
    
39.     lngLen = lngLen - 2: lngMod = lngLen Mod 3: lngLen = lngLen \ 3
    
40.     strTemp = Mid(strTemp, lngMod + 1)
    
41.    
    
42.     ReDim arrTemp(1 To lngLen)
    
43.     For lngMod = 1 To lngLen
    
44.         arrTemp(lngMod) = Mid(strTemp, 1 + (lngMod - 1) * 3, 3)
    
45.     Next
    
46.    
    
47.     lngDispLocation = lngDispLocation - lngLen + 1
    
48.     If lngDispLocation < 0 Then lngDispLocation = 0
    
49.    
    
50.     For lngIndex = 1 To lngLen
    
51.         strResult(lngIndex + lngDispLocation, 1) = arrTemp(lngIndex)
    
52.     Next
    
53.    
    
54.     If lngLineType <> 0 Then strResult(lngIndex + lngDispLocation, 1) = strLast
    
55.    
    
56.     SSLJ = strResult
    
57. End Function

复制代码

WYS67

lsdongjh 发表于 2018-12-20 15:54

老师：代码运行速度很快！显示的计算结果除了特殊情况【指定行号内的单元格个数少于数据源A列连接而成的三位数个数】下的G:H列外，都很正确！如下面截图所示：

A列数据连接的最后一个三位数，在G:H列，也必须恰好显示在H1指定的行号里。

    F1指定的行号包括的单元格个数大于数据源A列连接而成的三位数个数，所以E:F列显示结果很正确；

     但指定H1为30，在G5:G100000里输入公式{ =SSLJ(A5:A100000,0,H1)，则代表计算结果只能显示在G5:G30的26个单元格里。如果A列数据连接成的三位数总个数超过26个，采取截头方法--去掉上边的三位数，从G5开始自动显示最后的26个三位数，以确保A列最后一个三位数恰好显示在G30单元格里。

恳请老师完善代码。

WYS67

lsdongjh 发表于 2018-12-20 15:54

老师：恳请您在代码里假如29楼描述的功能---不考虑数据源能够连接成的三位数有多少，自动在第三参数指定的行号中，恰好显示顺排下来的最后一个三位数。