excel vba提取列最后单元的内容

2025-04-02 08:20:32

推荐回答（3个）

回答1：

Sub Value_Pic()
Dim i As Single
Dim my_Col As String
For i = 1 To 6
my_Col = Split("D/H/L/P/T/X", "/")(i - 1)
Cells(i, "D") = "A" & Right(Cells(Cells(1048576, my_Col).End(xlUp).Row, my_Col), 1)
Next
End Sub

回答2：

range("D1")=“A" & Right(range("D" & cells(rows.count,"D").end(3).row),1)
range("D2")=“A" & Right(range("H" & cells(rows.count,"H").end(3).row),1)
.....
余类推

回答3：

sub xx()
for i=1 to 6
cells(i,4)="A" & right(cells(4^8,4*i).end(3).text,1)
next
end sub