Debug.Print Worksheets(1).[A65536].End(xlUp).Row
 

 
 
 
 完整介绍Excel End(xlUp).Row
 
 
 一、End(xlUp).Row介绍
 
 功能是返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。Range 对象，只读。
 
 其语法如下：
 
 expression.End(Direction)
 
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com） 
 expression 必需。 该表达式返回应用于列表中的对象之一。
 
 Direction XlDirection 类型，必需。所要移动的方向。
 
 XlDirection 可为 XlDirection 常量之一。
 
 xlDown
 
 xlToRight
 
 xlToLeft
 
 xlUp
 
 二、End(xlUp).Row示例
 
 本示例选定包含单元格 B4 的区域中 B 列顶端的单元格。
 
 Range("B4").End(xlUp).Select
 
 本示例选定包含单元格 B4 的区域中第 4 行尾端的单元格。
 
 Range("B4").End(xlToRight).Select
 
 本示例将选定区域从单元格 B4 延伸至第四行最后一个包含数据的单元格。
 
 Worksheets("Sheet1").Activate
 
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com） 
 Range("B4", Range("B4").End(xlToRight)).Select
 
 再比如：
 
 Range("a65536").End(xlUp).Row A列数据区域最后一行的行号
 
 Range("b65536").End(xlUp).Row B列数据区域最后一行的行号
 
 Range("d65536").End(xlUp).Row D列数据区域最后一行的行号
 
 Range("k65536").End(xlUp).Row K列数据区域最后一行的行号
 
 最后，再看看一段VBA调用的代码吧：
 
 Dim i, M, iRow, sh, arr
 
 M = 0.0015
 
 For Each sh In ThisWorkbook.Sheets
 
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com） 
 iRow = sh.[D65535].End(xlUp).Row
 
 ReDim arr(1 To iRow, 1 To 2)
 
 arr = sh.Range("D3:E" & iRow)
 
 For i = 2 To UBound(arr)
 
 arr(i, 1) = arr(i, 1) * M
 
 arr(i, 2) = arr(i, 2) * M
 
 Next
 
 arr(1, 1) = Application.Substitute(arr(1, 1), "平方米", "亩")
 
 arr(1, 2) = Application.Substitute(arr(1, 2), "平方米", "亩")
 
 sh.Range("D3:E" & iRow) = arr
 
 Next
 

 
 
背景
 
 
业务需要依据详细设计文档编写所有对应的页面
 
 

 
 
问题
 
 
工作量大，11张大表（几十上百字段）时间紧 3天完成
 
 

 
 
核心
 
 
有完整的表设计，可通过excel手动编辑完成。
 
 

 
 
新问题
 
 
普通字段没问题，可增加了字典后工作量骤然提升，这种特殊性让工作的难度和体量都给手工操作Excel带来了挑战
 
 

 
 
解决方案
 
 
通过代码实现手工操作excel的工作，也就是编写VBA宏
 
 
 
  
 
   
 
       

        1
       
 
       

        2
       
 
       

        3
       
 
       

        4
       
 
       

        5
       
 
       

        6
       
 
       

        7
       
 
       

        8
       
 
       

        9
       
 
       

        10
       
 
       

        11
       
 
       

        12
       
 
       

        13
       
 
       

        14
       
 
       

        15
       
 
       

        16
       
 
       

        17
       
 
       

        18
       
 
       

        19
       
 
       

        20
       
 
       

        21
       
 
       

        22
       
 
       

        23
       
 
       

        24
       
 
       

        25
       
 
       

        26
       
 
       

        27
       
 
       

        28
       
 
       

        29
       
 
       

        30
       
 
       

        31
       
 
       

        32
       
 
       

        33
       
 
       

        34
       
 
       

        35
       
 
       

        36
       
 
       

        37
       
 
       

        38
       
 
       

        39
       
 
       

        40
       
 
       

        41
       
 
       

        42
       
 
       

        43
       
 
       

        44
       
 
       

        45
       
 
       

        46
       
 
       

        47
       
 
       

        48
       
 
 
       
 
        
 
         Sub 
         detailPage() 
        
 
        

         '
        
 
        

         ' 沫沫金
        
 
        

         ' 生成居民健康档案浏览器页面，时间: 2017/08/17
        
 
        

         '
        
 
        
 
         Dim 
         tri 
         As 
         Integer
         , td, tableName, nameC, valC, dicC, saveC 
         As 
         String 
        
 
        

         '
        
 
        

         '配置区域：Config
        
 
        

         '
        
 
        

         '三列一行控制器记录仪
        
 
        

         tri = 1
        
 
        

         '表名列
        
 
        
 
         tableName = LCase(Cells(1, 
         "D"
         )) 
        
 
        

         'label列
        
 
        
 
         nameC = 
         "A" 
        
 
        

         '值列
        
 
        
 
         valC = 
         "B" 
        
 
        

         '字典列
        
 
        
 
         dicC = 
         "C" 
        
 
        

         '存储列
        
 
        
 
         saveC = 
         "F" 
        
 
        

          
        
 
        
 
         For 
         n = 1 
         To 
         [A65536].
         End
         (xlUp).Row 
        
 
        
 
             
         '初始行内容 
        
 
        
 
             
         td = 
         "" 
        
 
        
 
             
         '三列一行 
        
 
        
 
             
         If 
         tri = 1 
         Then 
         td = 
         "<tr>" 
        
 
        
 
             
         '字段说明 
        
 
        
 
             
         td = td + 
         "<td width=''33%''><h3><i class=''ico ico_23''></i>" 
         + Cells(n, nameC) 
        
 
        
 
             
         '字典字段特殊处理 
        
 
        
 
             
         If 
         Cells(n, dicC) = 
         "" 
         Then 
        
 
        
 
             
         td = td + 
         "</h3><p>${sessionScope.data." 
         + tableName + 
         "[index]." 
         + LCase(Cells(n, valC)) + 
         "}</p></td>" 
        
 
        
 
             
         Else 
        
 
        
 
             
         td = td + 
         "</h3><p><dic:dic type="
         "" 
         + Cells(n, dicC) + 
         ""
         " value="
         "${sessionScope.data." 
         + tableName + 
         "[index]." 
         + LCase(Cells(n, valC)) + 
         "}"
         " /></p></td>" 
        
 
        
 
             
         End 
         If 
        
 
        
 
             
         '三列一行结束处理 
        
 
        
 
             
         If 
         tri = 3 
         Then 
         td = td + 
         "</tr>" 
        
 
        
 
             
         '拼接一行，扔到空闲列统一拷贝 
        
 
        
 
             
         Cells(n, saveC) = td 
        
 
        
 
             
         '当前列记录 
        
 
        
 
             
         tri = tri + 1 
        
 
        
 
             
         '三列一行控制器 
        
 
        
 
             
         If 
         tri > 3 
         Then 
         tri = 1 
        
 
        
 
         Next 
         n 
        
 
        

          
        
 
        
 
         MsgBox 
         "恭喜你，详细信息生成成功。" 
        
 
        

         '
        
 
        
 
         End 
         Sub 
        
 
       
 
  
 
 
 
 
启用宏，拷贝到代码区运行即可看到拼接结果。完全自定义拼接格式，百分百解放双手的工具。
 
 

 
 
下面，给java开发同伴重点说明下
 
 
if判断 条件不用圆括号
 条件判断等于一个等号
 格式排版必须控制好
 没有分号
 
 

 
 
以上，运行说明，在当前的sheet页Alt+F8运行上面的宏。生成完成会收到友情提醒，好了，愉快的VBA结束。
 
 

  

 
 
 

  

 
 
 

  本文转自 沫沫金 51CTO博客，原文链接：http://blog.51cto.com/zl0828/1957107，如需转载请自行联系原作者 

 
 

笔者最近在做一个数据库项目，其中需要从EXCEL中提取关键字段。提取内容如下图所示，需要将图中加粗部分单独提出后进行去噪处理。如果通过word处理，文字量小的时候尚可实现，但几十万字的处理量很容易就造成假死。因此采用了EXCEL进行数据处理。
 
 
代码如下：功能是将B列中的数据筛选后存入C列
 
Sub 提取内容()
Dim searchtext
Dim textlong
Dim str_start
Dim str_end

For i = 1 To 2000
searchtext = Worksheets("sheet1").Range("B" & i).Value
textlong = Len(Worksheets("sheet1").Range("B" & i).Value)
'————————————————————————————确定提取的字符区间
    If InStr(searchtext, "解决") <> 0 Then
    str_start = InStr(searchtext, "解决")
    str_end = InStr(searchtext, "问题")
 '————————————————————————————避免B列出现不含有所要提取内容时报错
If str_start - str_end - 2 > 0 Then
Worksheets("B60J7摘要").Range("c" & i).Value = Mid(searchtext, str_start + 2, str_start - str_end - 2)
End If
 '————————————————————————————提取B列中的内容至C列
    ElseIf InStr(searchtext, "问题") <> 0 Then
    Worksheets("sheet1").Range("c" & i).Value = Right(searchtext, str_start + 2, str_start - str_end - 2)
    ElseIf searchtext = "" Then
    Worksheets("sheet1").Range("c" & i).Value = ""
    Else
    Worksheets("sheet1").Range("c" & i).Value = "不含有"
    End If
 Next
End Sub
 
注：由于要提取的内容中，必然以“解决”开头，以“问题”结尾，因此可采用上述代码处理。提取结果如图所示。

目录
 
例
 
码
 
易失性函数
 

例
 
    在Excel中，经常需要得知某列最后一个非空单元格的行号，以确定数据的数量。编写自定义函数以实时计算某单元格所在的列最后非空单元格的行号。
 
员工编号
姓名
部门
0114
俞卫广
总经办
0374
高波
总经办
0209
曲波
人事部
0352
周书敬
人事部
0370
姚胜
财务部
0265
毛传阳
财务部
0016
袁志刚
财务部
0042
齐光
市场部
0028
刘晨


  
 
码
 
    使用Find方法找到单元格所在列的最后一个单元格，并返回该行号，最后使用Volatile方法将函数设置为易失性函数。
 
Option Explicit

Function GetLastRow(rng As Range) As Long
    Dim refRng As Range
    Dim findRng As Range
    
    Set refRng = rng.Cells(1, 1).EntireColumn
    Set findRng = refRng.Find(what:="*", after:=refRng.Cells(1, 1), searchdirection:=xlPrevious)
    
    If findRng Is Nothing Then
        GetLastRow = 0
    Else
        GetLastRow = findRng.Row
    End If
    
    Application.Volatile
End Function
 
返回工作表，在单元格中分别输入，到如下结果
 
     
 
Volatile方法
 
    Volatile方法是Excel程序对象(Application)的一个方法，该方法用在自定义函数中，用以标明该函数为易失性函数。该方法的语法为：
 
Application .Volatile ( [Volatile] )
 
     其中，参数Volatile为可省略参数，其类型为逻辑值。当该值为True（默认值）时，则
 表示该函数为易失性函数，若该参数为False时，则表示非易失性函数。
 
易失性函数
 
    当工作表的任何值发生变化时，易失性函数就会进行重算，而非易失性函数只有当其引用的单元格的值发生变化时才会进行重算。对于本例来说，其引用的区域为一个单元格，当该单元格所在列的其他单元格发生变化时，就会影响到该函数的值，因而选用易失性函数。然而，并非所有的函数都要标记为易失性函数。因为易失性函数在每次单元格发生变化时都会进行重算，无疑会增加系统的开销。当函数进行简单的计算，而非需要根据其参数所引用的单元格之外的区域而计算时，就无须使用易失性函数。