Function Lianjie(rAB As Range, isN As Boolean)
'第一个参数是单元格区域,可多行多列;第二个参数为true,先列后行,为false,先行后列
Dim nR%, nC%, i%, j%, rng As Range
Set rng = rAB
If isN = True Then
nR = rng.Rows.Count
nC = rng.Columns.Count
Else
nC = rng.Rows.Count
nR = rng.Columns.Count
End If
For i = 1 To nC
For j = 1 To nR
If isN = True Then
Lianjie2 = Lianjie2 & rng(j, i)
Else
Lianjie2 = Lianjie2 & rng(i, j).Value
End If
Next
Next
End Function
'第一个参数是单元格区域,可多行多列;第二个参数为true,先列后行,为false,先行后列
Dim nR%, nC%, i%, j%, rng As Range
Set rng = rAB
If isN = True Then
nR = rng.Rows.Count
nC = rng.Columns.Count
Else
nC = rng.Rows.Count
nR = rng.Columns.Count
End If
For i = 1 To nC
For j = 1 To nR
If isN = True Then
Lianjie2 = Lianjie2 & rng(j, i)
Else
Lianjie2 = Lianjie2 & rng(i, j).Value
End If
Next
Next
End Function