我如何获得特定列使用范围的计数

时间:2016-10-21 06:52:15

标签: excel excel-vba vba

我想要特定列的最后使用范围的计数, 就我而言,我的专栏是(" F")我的数据来自Range(" F2") 我尝试了以下代码,但我没有得到正确的计数

注意=列剂量包含任何空白数据

g = 10.times.map { |i| [1+10*i..10+10*i, 0] }.to_h
  #=> {1..10=>0, 11..20=>0, 21..30=>0, 31..40=>0, 41..50=>0, 51..60=>0,
  #    61..70=>0, 71..80=>0, 81..90=>0, 91..100=>0}

a.each_with_object(g) do |n,h|
  interval_first = 1+10*((n-1)/10)
  h[interval_first..interval_first+9] += 1
end
  # => {1..10=>1, 11..20=>4, 21..30=>0, 31..40=>2, 41..50=>3, 51..60=>0,
  #     61..70=>3, 71..80=>0, 81..90=>3, 91..100=>4}

提前致谢

1 个答案:

答案 0 :(得分:1)

您可以使用它来查找包含F列中数据的最后一个可见单元格。请注意,这不是Excel认为是F列中最后使用过的单元格的必要条件

xlwkbOutput.Sheets("Sheet1").Activate
    With ActiveSheet
    lastRow = .Cells(.Rows.Count, 6).End(xlUp).Row
    End With