Xin hỏi các bác chuyên nghiệp về Excel ?

Không ổn, vì thực ra nó chỉ copy data từ Sheet 1 sang Sheet 2 mà thôi, nó khác lệnh copy ở chỗ tự update data khi có thay đổi ở Sheet 1, nó tương tự như link với địa chỉ tương đối, khi đó cần chèn thêm cột hay hàng ở Sheet 2, dữ liệu sẽ bị loạn, có cách nào khắc phục không ?
Wait and see

pó tay

Thật sự các bác "pó tay" như bác Bigfoot2 rồi à. Em vẫn chưa chịu, vừa rồi Em định phone cho thằng cha đeo kính cận (Chủ tịch tập đoàn MS ấy mà) nhưng máy nhà em cắt đường quốc tế rồi. Bác nào có lòng hảo tâm xin liên hệ giúp em.

Lệnh copy này khác lệnh copy thông thường là có thể giữ nguyên định dạng kể cả các chỉ số trên dưới màu mè, Vấn đề khắc phục việc chèn hàng cột em đã làm ở dưói này bác cứ theo cách làm như lần trước em post và thay đoạn code này thôi
---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Source As Range
Set nms = ActiveWorkbook.Names
If nms.Count = 0 Then
nms.Add Name:="Source1", RefersTo:="=sheet1!$a$1"
nms.Add Name:="Target1", RefersTo:="=sheet2!$a$1"
End If
For r = 1 To nms.Count
If nms(r).Name = "Source1" Or nms(r).Name = "Target1" Then
Exit For
Else
nms.Add Name:="Source1", RefersTo:="=sheet1!$a$1"
nms.Add Name:="Target1", RefersTo:="=sheet2!$a$1"
End If
Next
Set Source = Worksheets("Sheet1").Range("Source1")
Set Target = Worksheets("Sheet2").Range("Target1")
Source.Copy Destination:=Target
End Sub
-----------------------------
Nếu có gì cần thay đổi các bác cứ post lên bây giờ em đang rảnh

Các bác dùng đoạn code này vì đoạn trên làm mất khả năng copy/paste của chương trình
---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Source As Range
Set nms = ActiveWorkbook.Names
If nms.Count = 0 Then
nms.Add Name:="Source1", RefersTo:="=sheet1!$a$1"
nms.Add Name:="Target1", RefersTo:="=sheet2!$a$1"
End If
For r = 1 To nms.Count
If nms(r).Name = "Source1" Or nms(r).Name = "Target1" Then
Exit For
Else
nms.Add Name:="Source1", RefersTo:="=sheet1!$a$1"
nms.Add Name:="Target1", RefersTo:="=sheet2!$a$1"
End If
Next
Set Source = Worksheets("Sheet1").Range("Source1")
Set Target = Worksheets("Sheet2").Range("Target1")
Source.Copy Destination:=Target
End Sub
------------------------

tôi nhớ bên chủ đề bên kia "1001 câu hỏi Excel cho lính mới" hình như cũng có hỏi câu này mà.
Ai đó đã trả lời là dùng cách chụp ảnh ô (camera)
Tôi đã về nhà thử nghiệm và rất chi là ngon lành.
(thử thay đổi các ô trong 1 sheet thì các ô khác trong sheet khác cũng đổi theo y xì phóc)
Dzậy sao bác còn kêu ca cái gì

Than,
Neu ban chi co mot muc dich la giu nguyen dinh dang font chu thoi (cho du la co nhieu fonts) ban van co the dung copy va paste binh thuong thoi chu khong co gi dac biet ca, con nhung dinh dang khac thi toi chua thu.
Bye.

Cái cách chụp ảnh là do mình nói. thực ra để giải quyết vấn đề font thì chụp ảnh là cách đơn giản nhất, tuy hơi cồng kềnh.
Dưng mà sao cái đoạn code trên nó chỉ copy mỗi ô A1 là sao nhỉ ?

Chú này cóc đọc từ đầu đến cuối.
Wait and see

theo tôi thì bác quên cái đoạn mã đó đi
thế bác chụp ảnh như thế nào, có đánh dấu các ô không, hay là chỉ đánh dấu 1 ô.
Tôi chụp bất kì đều được mà, đâu chỉ là ô A1. Nhiều ô m