【2】VBA有數(shù)據(jù)區(qū)域最大行號最大行列號  

czm4/VBA化纖月報表宏查找空行并作標(biāo)志

  mlh6 = ActiveSheet.UsedRange.Columns.Count  '求當(dāng)前工作表有數(shù)據(jù)區(qū)域的最大列號，

    Debug.Print mlh6

    'Cells(99, 3) = mlh6

  mhh6 = ActiveSheet.UsedRange.Rows.Count  'OK! '求行號,得12，當(dāng)前工作表有數(shù)據(jù)區(qū)域的最大行號，實(shí)際為12行

    Debug.Print mhh6

'求最大行號、在隨后的空行作標(biāo)記

  For n = 1 To 2 Step 1

   mhh6c = Range("A1").CurrentRegion.Rows.Count 'Ok！從產(chǎn)量產(chǎn)值表計(jì)

    Debug.Print mhh6c

    If mhh6c < mhh6 Then

      'If Cells(mhh6 + 1, 1) = "" Then

       Cells(mhh6c + 1, 1) = "t" & n

       'Workbooks(wbN1).Save

      'End If

    End If

   Next

------

czm3/實(shí)際為12行

 'mhh6 = ActiveSheet.UsedRange.Rows.Count  'OK! '求得行號,得12，當(dāng)前工作表最大有數(shù)據(jù)行實(shí)際為12行

  'Debug.Print mhh6

 'ActiveSheet.Range(Cells(1, 1), Cells(mhh6, mlh6)).Copy  '復(fù)制range("a1:"mhh6,mlh6")

 'Worksheets("s").Range(Cells(1, 1), Cells(mhh6, mlh6)).Copy  '復(fù)制當(dāng)前工作表指定區(qū)域，即各企業(yè)工作簿中S工作表

Czm2）獲取行號

  maxLine = ActiveSheet.UsedRange.Rows.Count  '獲取最大的非空單元格所在的行號

     maxLineS = "1:" + CStr(maxLine)

   'cellRange1.Columns.Count 'OK! '求得列號,

 'mlh6 = ActiveSheet.UsedRange.Columns.Count 'OK! '得列號,

  'mhh6 = cellRange1.Rows.Count  'OK! '求得行號,得12，當(dāng)前工作表最大有數(shù)據(jù)行實(shí)際為12行

 'mhh6 = ActiveSheet.UsedRange.Rows.Count  'OK! '求得行號,得12，當(dāng)前工作表最大有數(shù)據(jù)行實(shí)際為12行

czm1) Sub 最后一個非空單元格行列號()

  a5 = Cells.SpecialCells(xlCellTypeLastCell).Row '得行號，OK!如A列只有A1=a（其余都空時）,且G列只有g(shù)13=b（其余為空）,所得結(jié)果a5＝13。只認(rèn)最后一個有數(shù)據(jù)（非空）單元格的所在行，而不管此非空單元格是在這一行的哪一列。

  rh = Cells(Rows.Count, 1).End(3).Row  'OK! '行號，只按A列計(jì)

    Debug.Print rh

   'Ch = Cells(100, Columns.Count).End(3).Row '?

   'Debug.Print Ch

   'Ch1 = Cells(1, Columns.Count).End(xlToLeft).Column '?

  ch1 = ActiveSheet.UsedRange.Columns.Count '獲取列號，OK! 按非空單元格所在的列計(jì)，而不管此非空單元格是在這一列的哪一行。

   Debug.Print ch1

  Cells(rh + 1, ch1) = 120

End Sub

acol=cells(1,columns.count).end(xltoleft).column  '得到列數(shù)

arow = cells(rows.count,1).end(3).row '得到行數(shù)

8）如何獲得指定行、列中最后一個非空單元格，其實(shí)是踏破鐵鞋無覓處

http://baijiahao.baidu.com/s?id=1649906491817896693&wfr=spider&for=pc

7)Excel vba如何取得最后一個非空列的列標(biāo)

https://zhidao.baidu.com/question/1831152874415605700.html?qbl=relate_question_2&word=vba%BB%F1%C8%A1%D7%EE%BA%F3%D2%BB%B8%F6%B7%C7%BF%D5%B5%A5%D4%AA%B8%F1%B5%C4%D0%D0%BA%C5%BA%CD%C1%D0%BA%C5

 cells(1,columns.count).end(xltoleft).column '?

 mhh = ActiveSheet.UsedRange.Columns.Count 'Ok!

6)VBA找出一列中最后一個非空單元格 ,不行？

https://zhidao.baidu.com/question/119229454.html

Cells(65536, ColumnNo).End(xlUp).Row

Rh1 = Cells(65536, ColumnNo).End(xlUp).Row,不行？

   Debug.Print Rh1

5)http://club./thread-973079-1-1.html

Private Sub CommandButton1_Click()

    Dim i&

    i = Val(TextBox1.Text)

    If i > 0 And i < 65537 Then

        If Not Intersect(ActiveSheet.UsedRange, Rows(i)) Is Nothing Then

            Cells(i, Columns.Count).End(xlToLeft).Select

        Else

             MsgBox "行號超出了數(shù)據(jù)區(qū)，請重新輸入。", vbInformation

        End If

    Else

        MsgBox "行號輸入錯誤，請重新輸入。", vbInformation

    End If

  End Sub

 BBS:可以用UsedRange.Columns.Count

4）Excel Cells(Rows.Count,1).End(xlUp).Row的含義。有較詳細(xì)解釋OK！

http://www.ahfyzs.com/content/13/0719/16/6973384_301100813.shtml

　取活動單元表的第一列最后一個有值的行的下一行行號。

3）http://www.ahfyzs.com/content/12/1214/13/2688461_253988102.shtml

　a=cells(rows.count,1).end(3).row  'Ok!

　b=cells(columns.count,1).end(3).row '?

2）請較各位VBA里怎么寫選取A列最后一個數(shù)據(jù)下面的那個空單元格

http://club./thread-932344-1-1.html

　[a65536].end(xlup).row+1 

　　如將所選粘貼到A列最后一個空的單元格：

　　selection copy range("a"&[a65536].end(xlup).row+1 )

　Sub yy()

k = Sheets("工作表名").Range("a65535").End(xlUp).Row

k = k + 1

Range("a" & k + 1) = "這個就是a列最后一個空格"

End Sub

1)excel中使用vba獲得當(dāng)前表格列最后個非空單元格

https://jingyan.baidu.com/article/a3761b2bcbc87f1577f9aa68.html

Option Explicit

Sub dingwei()

Dim rng As Range

Set rng = ActiveSheet.Range("a65536").End(xlUp)

rng.Activate

Set rng = Nothing

End Sub

4）VBA中怎樣表示整張表格中有數(shù)據(jù)的最后一個單元格的行和列

https://zhidao.baidu.com/question/404118804.html

activesheet.usedrange.specialcells(xlcelltypelastcell).address '運(yùn)行時424錯誤

　'這是完整地址

.row

.column

  '這兩個就是行、列

5）vba如何獲取最后一個數(shù)值的行號

https://wenda.so.com/q/1363762158069947?src=140

1.對于2003版本，行限制在65536上，可以使用Range("A65536").End(xlUp).Row,當(dāng)然A列必須有數(shù)據(jù), 2007版的行限制大大放寬，要適當(dāng)變更

　2.a5 = Cells.SpecialCells(xlCellTypeLastCell).Row這個方法也是很好用的

　http://www./help/soft/Excel/31370.html

6【關(guān)聯(lián)數(shù)據(jù)無須重復(fù)輸入，VBA輕松實(shí)現(xiàn)重組轉(zhuǎn)換】今日頭條極速版

https://www.toutiao.com/a6818345974470017549/

7）一般在VBA中，我們使用End方法來獲取最大行號

https://wenda.so.com/q/1534671670210140

 1、此題中，最大行號=cells(rows.count,1).end(3).row

 2、意思是從A列最后一個單元格往上找，第一個非空單元格的行號（row）

9/百度知道

  https://sa93g4./pages/squestion/squestion?qid=536964864&rid=1355472788&hostname=baiduboxapp&_swebfr=1

   lastrow = Worksheets("工作表名稱").UsedRange.SpecialCells(xlCellTypeLastCell).Row

10/EXCELVBA區(qū)域查找并選擇行

 https://www.wukong.com/answer/6742286154600546563/

 我知道的如何判斷最后一行有3種方法，我現(xiàn)在比較喜歡針對關(guān)鍵列先刪除空白行后用usedrange.row.count方法，我把三種方法的代碼貼出來，你根據(jù)自己的情況選一種用吧。

使用end屬性

在ExcelVBA中，使用End(xlUp)查找最后一行是最常使用且最為簡單的方法，它假設(shè)要有一列總包含有數(shù)據(jù)(數(shù)字、文本和公式等)，并且在該列中最后輸入數(shù)據(jù)的單元格的下一行不會包含數(shù)據(jù)，因此不必?fù)?dān)心會覆蓋掉已有數(shù)據(jù)。但該方法有兩個缺點(diǎn)：

(1) 僅局限于查找指定列的最后一行。

(2) 如果該列中最后一行被隱藏，那么該隱藏行將被視作最后一行。因此，在最后一行被隱藏時，其數(shù)據(jù)可能會被覆蓋。但該列中間的隱藏行不會影響查找的結(jié)果。

最底行/最末行/最后一行：

MsgBox range("a1").end(xlup).row 或者

MsgBox range("a" & cells.rows.count).end(xlup).row

最右行/最后邊一行：

MsgBox range("a1").end(xlright).column

MsgBox range("a" & celles.columns.count).end(xlleft).column

使用find方法

Find方法在當(dāng)前工作有數(shù)據(jù)中進(jìn)行查找，不需要指定列，也可以確保不會意外地覆蓋掉已有數(shù)據(jù)。其中，參數(shù)LookIn指定所查找的類型，有三個常量可供選擇，即xlValues、xlFormulas和xlComments。

(1) 常量xlFormulas將包含零值的單元格作為有數(shù)據(jù)的單元格。(當(dāng)設(shè)置零值不顯示時，該單元格看起來為空，但該參數(shù)仍將該單元格視為有數(shù)據(jù)的單元格)

(2) 常量xlValues將包含零值的單元格(如果設(shè)置零值不顯示時)作為空白單元格，此時，若該單元格在最后一行，則Find方法會認(rèn)為該單元格所在的行為空行，因此，該單元格中的內(nèi)容可能會被新數(shù)據(jù)所覆蓋。

[注：在Excel中，選擇菜單“工具”——“選項(xiàng)”，在打開的“選項(xiàng)”對話框中，選擇“視圖”選項(xiàng)卡，將其中的“零值”前的復(fù)選框取消選中，則工作表中的零值都不會顯示]

如果在參數(shù)LookIn中使用常量xlValues的話，還存在一個問題是：如果您將最后一行隱藏，則Find方法會認(rèn)為倒數(shù)第二行是最后一行，此時您在最后一行的下一行輸入數(shù)據(jù)，則會將實(shí)際的最后一行的數(shù)據(jù)覆蓋。

您可以在隱藏最后一行與不隱藏最后一行，或者是最后一行顯示零值與不顯示零值時，運(yùn)行下面的示例代碼04，看看所得的結(jié)果有什么不同。

'獲取最后一行

MsgBox "最后一行是第" & Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlFormulas, SearchDirection:=xlPrevious).EntireRow.Row & “行”

使用usedrange屬性

UsedRange方法可用于在工作表中已使用區(qū)域查找最后一行，該區(qū)域包括可能以前使用過的任何單元格，但現(xiàn)在其中的數(shù)據(jù)被刪除了，比如目前的工作表中只有第1行至第5行共5行，其它行都無數(shù)據(jù)，但在第6行中有些單元格以前使用過(可能僅僅格式化或內(nèi)容清除了，總之該行現(xiàn)在不含有數(shù)據(jù))，那么第6行也包含在該已使用的區(qū)域中。此外，如果最后一行被隱藏，那么會將因此，使用該方法查找最后一行是無規(guī)律且不可靠的，它通?？赡軙玫筋A(yù)料不到的結(jié)果。

'獲取最后一行

MsgBox "最后一行是第" & sheets（“工作表名稱”）.usedrange.row.count & “行”

【1】ExcelVBA從入門到高手 4.4 獲取數(shù)據(jù)區(qū)域最大行號與最大列號,-https://haokan.hao123.com/v?context=%7B%22nid%22%3A%22sv_14404442219053749086%22%2C%22sourceFrom%22%3A%22pc%22%7D&isBdboxShare=1&pd=share