Code coppy cột sang cột (1 người xem)

[quoccuonghd]

Cho em xin code coppy dư liệu cột sang cột trong một sheets vd cột a sang cột bCảm ơn.

 

[laulemroi]

Cho em xin code coppy dư liệu cột sang cột trong một sheets vd cột a sang cột bCảm ơn.

Sub CopyCongThucCot()
Dim ra, rng, NewCell As Range
Set ra = Selection
Set rng = Application.InputBox("CHON CELL DE BAT DAU DIEN: ", "Hop Chon", , , 1, Type:=8)
Set NewCell = rng
For j = 1 To ra.Columns.Count
For i = 1 To ra.Rows.Count
NewCell = ra(i, j).Formula
Set NewCell = NewCell.Offset(1, 0)
Next
t = t + 1
Set NewCell = rng.Offset(0, t)
Next
End Sub