'第一個參數是單元格區域,可多行多列;第二個參數爲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