彰化一整天的論壇

 找回密碼
 立即註冊
搜索
查看: 292|回復: 1

excel 取得資料所在的列數

[複製鏈接]
發表於 2016-8-31 10:42:49 | 顯示全部樓層 |閱讀模式
  1. Public Function get_data_last_row()
  2.     Dim i As Integer
  3.    
  4.     i = 10
  5.    
  6.     While Sheet1.Cells(i + 1, 7).Value <> ""
  7.    
  8.         i = i + 1
  9.     Wend
  10.     get_data_last_row = i
  11. End Function
複製代碼


回復

使用道具 舉報

 樓主| 發表於 2016-11-22 10:16:56 | 顯示全部樓層
改良版可以代參數
  1. Public Function get_data_last_row(ByVal strSheetName, ByVal strColumn, ByVal startx)
  2.     Dim i As Single
  3.    
  4.    
  5.     i = startx
  6.    
  7.     While Sheets(strSheetName).Range(strColumn & i).Value <> ""
  8.         i = i + 1
  9.     Wend
  10.     get_data_last_row = i
  11. End Function
複製代碼
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-1-17 01:40 , Processed in 0.025962 second(s), 9 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表