Cần giúp tạo macro copy (1 người xem)

[lamchanphieu]

Xin chào các anh chị và các bạn!
Cho xin hỏi, là muốn tạo macro copy ô trên của ô hiện hành, và paste value
xuống cột đó,sao cho bắng dòng cuối của cột kế bên

 

[Ba Tê]

Xin chào các anh chị và các bạn!
Cho xin hỏi, là muốn tạo macro copy ô trên của ô hiện hành, và paste value
xuống cột đó,sao cho bắng dòng cuối của cột kế bên

Lấy địa chỉ ô hiện hành, lấy địa chỉ ô cuối, gán giá trị bằng ô trên?

Public Sub GPE()
Dim fCll As String, eCll As String, Hic As Variant
With Selection
    fCll = .Address
    eCll = .Offset(, 1).End(xlDown).Offset(, -1).Address
    Hic = .Offset(-1).Value
End With
Range(fCll & ":" & eCll).Value = Hic
End Sub

 

[lamchanphieu]

lấy địa chỉ ô hiện hành, lấy địa chỉ ô cuối, gán giá trị bằng ô trên?

public sub gpe()
dim fcll as string, ecll as string, hic as variant
with selection
    fcll = .address
    ecll = .offset(, 1).end(xldown).offset(, -1).address
    hic = .offset(-1).value
end with
range(fcll & ":" & ecll).value = hic
end sub

nhưng mình muốn hỏi thêm tí nữa là, thay vì lấy dòng cuối của cột ké bên, mình muốn cố định là cột b , xin giúp thêm 1 lần nữa ah!

 

[Ba Tê]

nhưng mình muốn hỏi thêm tí nữa là, thay vì lấy dòng cuối của cột ké bên, mình muốn cố định là cột b , xin giúp thêm 1 lần nữa ah!

Public Sub GPE()
Dim C As Long, R As Long, Hic As Variant
R = Range("B65536").End(xlUp).Row
C = Selection.Column
Hic = Selection.Offset(-1).Value
Range(Selection, Cells(R, C)).Value = Hic
End Sub

 

[lamchanphieu]

hay quá, xin cảm ơn nhiều nhé!