返回列表 上一主題 發帖

[發問] 快速找出範圍內最大列數

[發問] 快速找出範圍內最大列數

各位好
我利用下列的代碼
  1. Dim N11, N2, N3, N4, N5, MaxRow As Integer
  2.             N11 = Cells(Rows.Count, 2).End(xlUp).Row 'B欄的最後一資料格的列數
  3.             N2 = Cells(Rows.Count, 3).End(xlUp).Row 'C欄的最後一資料格的列數
  4.             N3 = Cells(Rows.Count, 4).End(xlUp).Row
  5.             N4 =Cells(Rows.Count, 5).End(xlUp).Row
  6.             N5 = Cells(Rows.Count, 6).End(xlUp).Row
  7.             
  8.             MaxRow1 = Application.WorksheetFunction.Max(N1, N2, N3, N4, N5) '求出最上述範圍中最大數
複製代碼
找出B至F欄的範圍中的最大列數
想請問各位有沒有其他更快的方式,或是更好的方式,可以達到於特定範圍內找出最大列數
謝謝

謝謝各位的分享!!

TOP

        靜思自在 : 閒人無樂趣,忙人無是非。
返回列表 上一主題