level 9
端午节快乐!
![[狂汗]](/static/emoticons/u72c2u6c57.png)
![[真棒]](/static/emoticons/u771fu68d2.png)
level 7
C1公式：=MID(PHONETIC(A$1:B$10),ROW(),1)，下拉即可。
说明一下：我可不是高手。
2013年06月11日 08点06分
6
说明一下：我可不是高手。
高手![[大拇指]](/static/emoticons/u5927u62c7u6307.png)
2013年06月11日 08点06分
往往我们忽略了PHONETIC，老用&
2013年06月11日 10点06分
level 6
level 9
level 7
数组公式：
=INDIRECT(TEXT(SMALL(IF(A$1:B$10<>"",ROW(A$1:B$10)/1%+COLUMN(A$1:B$10),10001),ROW()),"R0C00"),)&""
下拉
2013年06月11日 10点06分
11
=INDIRECT(TEXT(SMALL(IF(A$1:B$10<>"",ROW(A$1:B$10)/1%+COLUMN(A$1:B$10),10001),ROW()),"R0C00"),)&""
下拉
indirect+text比我的高明多了
2013年06月11日 11点06分
2003版似乎需稍作修改
2013年06月11日 12点06分
吧务
level 12
响应号召：c1先空着
Sub 组合()
Dim arr, r&,c&,st
arr = Range("a1").CurrentRegion.Value
For r = 1 To UBound(arr)
For c = 1 To 2
st = IIf(st = "", "", st) & IIf(arr(r, c) <> "", "-" & arr(r, c), "")
Next c, r
arr = Application.Transpose(Split(st, "-"))
Range("c1").Resize(UBound(arr), 1) = arr
End Sub
2013年06月11日 12点06分
12
Sub 组合()
Dim arr, r&,c&,st
arr = Range("a1").CurrentRegion.Value
For r = 1 To UBound(arr)
For c = 1 To 2
st = IIf(st = "", "", st) & IIf(arr(r, c) <> "", "-" & arr(r, c), "")
Next c, r
arr = Application.Transpose(Split(st, "-"))
Range("c1").Resize(UBound(arr), 1) = arr
End Sub
吧务
level 12
来晚了, 凑个函数的
Function ArrayRemoveBlank(r As Range) As Variant
Dim result As Variant, i As Integer, c
ReDim result(1 To r.Cells.Count) As Variant
For Each c In r.SpecialCells(xlCellTypeConstants)
i = i + 1
result(i) = c.Value
Next
ArrayRemoveBlank = result
End Function
2013年06月11日 13点06分
13
Function ArrayRemoveBlank(r As Range) As Variant
Dim result As Variant, i As Integer, c
ReDim result(1 To r.Cells.Count) As Variant
For Each c In r.SpecialCells(xlCellTypeConstants)
i = i + 1
result(i) = c.Value
Next
ArrayRemoveBlank = result
End Function
level 9
