excel VBA复制最后单元内容到另列

Question

1.复制第4列最后单元内容到另列的第12单元
2.k至bz列，当某列最后单元内容出现相同时，复制第4列最后单元内容到此列的第12单元
例：aa列 最后单元内容是ewsedag这里出现ee相同
此时将第4列最后单元内容复制到此列的第12单元

Answer 1

1、复制第4列最后单元内容到另列的第12单元，设另一列为第5列：

Sub 宏1()
    Cells(12, 5) = Cells(Cells(Rows.Count, 4).End(xlUp).Row, 4)
End Sub

2.k至bz列，当某列最后单元内容出现相同时，复制第4列最后单元内容到此列的第12单元
例：aa列 最后单元内容是ewsedag这里出现ee相同
此时将第4列最后单元内容复制到此列的第12单元

Sub 宏2()
For i = 11 To 78
    m = Cells(Cells(Rows.Count, i).End(xlUp).Row, i)
    l = Len(m)
    For j = 1 To l - 1
        For k = 2 To l
        a = Mid(m, j, 1)
        b = Mid(m, k, 1)
            If Mid(m, j, 1) = Mid(m, k, 1) Then
                Cells(12, i) = Cells(Cells(Rows.Count, 4).End(xlUp).Row, 4)
            End If
        Next
    Next
Next
End Sub