第二个问题请教：逐列统计非空单元格的间隔次数。

cjb3030

中午的第一个问题非常感谢一把小刀闯天下的大力相助。第二个问题我试着用自定义函数解决，可以是可以，但公式还是占太多资源，能否用VBA实现？再次求助各位老师。

一把小刀闯天下

'你这表源数据无法自动获取行列号，只能指定区域，自己修改

Option Explicit

Sub test()
  Dim arr, i, j, pos
  arr = [e1:g22] '修改这里就可以
  ReDim brr(1 To UBound(arr, 2))
  For j = 1 To UBound(arr, 2)
    pos = 0
    For i = 1 To UBound(arr, 1)
      If Len(arr(i, j)) Then brr(j) = brr(j) & i - pos - 1 & Space(1): pos = i
  Next i, j
  [e1].Offset(UBound(arr, 1) + 1).Resize(, UBound(brr)) = brr '输出位置自己修改
End Sub

cjb3030

一把小刀闯天下 发表于 2018-7-24 21:15
'你这表源数据无法自动获取行列号，只能指定区域，自己修改

Option Explicit

太好了。谢谢大侠！衷心祝你生活愉快！