如何用VBA实现在不固定单元格里粘贴数值

精彩地精彩

各位大神，求助一下，我想实现在C列不固定的最后一行数据的下一行A21的位置粘贴sheet2里的数值，第二次在A36的位置粘贴sheet3里的数值

limonet

关键字：End(xlUp)

limonet

Sub limonet()
    Dim Sht As Worksheet
    For Each Sht In Worksheets
        If Sht.Index > 1 Then Sht.UsedRange.Copy Sheet1.Range("A" & Range("C" & Rows.Count).End(xlUp).Row + 1)
    Next Sht
End Sub

feilanga

..............

精彩地精彩

limonet 发表于 2024-5-11 10:03
关键字：End(xlUp)

谢谢亲，我去试试

精彩地精彩

feilanga 发表于 2024-5-11 10:04
..............

谢谢你啦，正是我想要的

杨成云

自定义函数
Function UsedEndRngycy(Optional nm As String, Optional rc = 4)  '已使用区域最后一下单元格
    Application.Volatile
    Dim r As Range, c As Range
    If Len(nm) = 0 Then nm = ActiveSheet.Name
    'rc =1获取最后一个已使用单元格的行标
    'rc =2获取最后一个已使用单元格的数字列标
    'rc =3获取最后一个已使用单元格的字母列标
    'rc =4获取最后一个已使用单元格的相对地址
    Set c = Sheets(nm).Cells.Find("*", After:=Range("A1"), SearchOrder:=xlColumns, SearchDirection:=xlPrevious)
    Set r = Sheets(nm).Cells.Find("*", After:=Range("A1"), SearchOrder:=xlRows, SearchDirection:=xlPrevious)
    If r Is Nothing Then
        UsedEndRngycy = "A1"
    Else
        If rc = 1 Then
            UsedEndRngycy = r.Row
        ElseIf rc = 2 Then
            UsedEndRngycy = c.Column
        ElseIf rc = 3 Then
            UsedEndRngycy = Split(Cells(r.Row, c.Column).Address, "$")(1)
        Else
            UsedEndRngycy = Cells(r.Row, c.Column).Address(0, 0)
        End If
    End If
End Function

例如：
=UsedEndRngycy(,1)
得到有数据的最后一行的行值。

杨成云

Function UsedEndRngycy(Optional nm As String, Optional rc = 4)  '已使用区域最后一下单元格
    Application.Volatile
    Dim r As Range, c As Range
    If Len(nm) = 0 Then nm = ActiveSheet.Name
    'rc =1获取最后一个已使用单元格的行标
    'rc =2获取最后一个已使用单元格的数字列标
    'rc =3获取最后一个已使用单元格的字母列标
    'rc =4获取最后一个已使用单元格的相对地址
    Set c = Sheets(nm).Cells.Find("*", After:=Range("A1"), SearchOrder:=xlColumns, SearchDirection:=xlPrevious)
    Set r = Sheets(nm).Cells.Find("*", After:=Range("A1"), SearchOrder:=xlRows, SearchDirection:=xlPrevious)
    If r Is Nothing Then
        UsedEndRngycy = "A1"
    Else
        If rc = 1 Then
            UsedEndRngycy = r.Row
        ElseIf rc = 2 Then
            UsedEndRngycy = c.Column
        ElseIf rc = 3 Then
            UsedEndRngycy = Split(Cells(r.Row, c.Column).Address, "$")(1)
        Else
            UsedEndRngycy = Cells(r.Row, c.Column).Address(0, 0)
        End If
    End If
End Function
例如：
=UsedEndRngycy(,1)
得到有数据的最后一行的行值。