自定义函数

正月庚寅

Function hb(rg As Range) '把很多单元格用逗号隔开放一个单元格
    Dim ran As Range, arr, z%
    ReDim arr(1 To rg.Count)
    z = 1
    For Each ran In rg
        arr(z) = ran.Value
        z = z + 1
    Next
    m = 1
    If Len(arr(z).Value) > 0 Then m = m + 1
    ReDim Preserve arr(1 To m)
    hb = Join(arr, Chr(10) & Chr(13)) '换行符，如果不要换行则把char整个换成逗号
End Function

想实现自定义函数，把一列单元格合并起来，用回车隔开，但是空白单元格不合并进来，自己改了个函数，但是好像没用，哪位大神可以帮忙看看？

microyip

其实没什么差别，首先需要把输入这个公式的哪个单元格设置为自动换行

microyip

1. Function 合并内容(ByVal rRNG As Range) As String
   
2.     Dim vData As Variant, sStr As String
   
3.     If rRNG.Count > 1 Then
   
4.         vData = Application.WorksheetFunction.Transpose(rRNG.Value)
   
5.         sStr = Join(vData, Chr(10))
   
6.     Else
   
7.         sStr = rRNG.Text
   
8.     End If
   
9.     合并内容 = sStr
   
10. End Function

复制代码

正月庚寅

microyip 发表于 2018-4-19 13:33

试了一下，空白单元格还是并进来了哦，需要把空白单元格忽略，只并有数值的单元格，且用回车隔开。

microyip

正月庚寅 发表于 2018-4-19 14:34
试了一下，空白单元格还是并进来了哦，需要把空白单元格忽略，只并有数值的单元格，且用回车隔开。

首先需要对单元格进行自动换行设置，然后再输入公式

正月庚寅

microyip 发表于 2018-4-19 14:35
首先需要对单元格进行自动换行设置，然后再输入公式

设置了，还是不行，并进来中间有很大一块空的。

zopey

=ConTxt(IF(A1:A7<>"",A1:A7&CHAR(10),""))    三键

contxt.zip (12.2 KB, 下载次数: 19)

2018-4-20 10:20 上传

点击文件名下载附件

zhjlgaojuan

Public Function hb(rng As Range) As String
Dim TempArr() As Variant
Dim TempRng As Range
Dim JS%
For Each TempRng In rng
    If TempRng.Value <> "" Then
       JS = JS + 1
       ReDim Preserve TempArr(1 To JS)
       TempArr(JS) = TempRng.Value
    End If
Next
hb = Join(TempArr, Chr(10) & Chr(13))
End Function

paciguard

曲线救国，见附件。。。。。。。

正月庚寅

paciguard 发表于 2018-4-20 11:37
曲线救国，见附件。。。。。。。

没有达到目的哦，想要的是1234567行，234行是空的，我想把1567合并起来，中间不能有空行，但是1567又需要有回车隔开。