查找列标题并确定下面的活动行数

我想开始,我是在Excel中使用VBA的新手。 我只是试图find一个单元格在我的工作簿(列标题),并使用该信息来确定一个范围的基础上行到最后一个活动行。

我有下面,但我遇到对象属性错误。

'Identify the starting range Cell Dim Acct_Start As String 'Determine the range length Dim Acct_Lines As Long 'Locate All of the Security Numbers Acct_Start = ActiveSheet.Cells.Find(What:="Account Number").Offshet(1, 0).Address Acct_Lines = Cells(Rows.Count, ActiveCell.Column).End(xlDown).Row 

我的最终目标是使用这些信息来削减我的值的第一个和最后一个数字。 IE浏览器我的数据来x123456x,我想它是123456。

如果我的上面的代码工作,我会把它通过下面的TextToColumn修剪器。

  'Clean Up Security Numbers Selection.TextToColumns Destination:=Range(Acct_Start), DataType:=xlFixedWidth, _ FieldInfor:=Array(Array(0, Acct_Lines), Array(1, 1)), TrailingMinusNumbers:=True Selection.TextToColumns Destination:=Range(Acct_Start), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, Acct_Lines), Array(6, 9)), TrailingMinusNumbers:=True 

请让我知道,如果我这样做是错误的。

如果“上一个活动行”是指数据最后一个单元格,这应该给你所需的范围:

 Dim rngStart As Range, rngEnd As Range, rngFull As Range Set rngStart = Range("1:1").Find("c1").Offset(1, 0) Set rngEnd = rngStart.End(xlDown) Set rngFull = Range(rngStart, rngEnd) 

你必须replace“c1”。