Giúp em nội dung hiển thị lấy từ 2 sheet riêng (1 người xem)

[k2t2]

Nhờ mấy anh chị hỗ trợ giúp em
Em có 3 sheet gồm 2 sheet có nội dung nhập liệu. Em muốn 1 sheet lấy nội dung đan xen cứ 1 ô nội dung của sheet 1 chèn xuống dưới 1 ô nội dung của sheet 2, thủ công thì lâu quá anh chị hỗ trợ em với
Em muốn để khi thay đổi nội dung sheet 1, sheet 2 thì sheet 3 tự động thay đổi theo
Em cảm ơn

 

[Hoang2013]

Muốn đưa hình, thì fải đưa 3 cái lên luôn thể;
Nhưng đưa file lên chỉ cần giả lập 01!

Chờ fản hồi từ bạn.

 

[k2t2]

Muốn đưa hình, thì fải đưa 3 cái lên luôn thể;
Nhưng đưa file lên chỉ cần giả lập 01!

Chờ fản hồi từ bạn.

Muốn đưa hình, thì fải đưa 3 cái lên luôn thể;
Nhưng đưa file lên chỉ cần giả lập 01!

Chờ fản hồi từ bạn.

Dạ em đã bổ sung hình ạ

 

[HieuCD]

Nhờ mấy anh chị hỗ trợ giúp em
Em có 3 sheet gồm 2 sheet có nội dung nhập liệu. Em muốn 1 sheet lấy nội dung đan xen cứ 1 ô nội dung của sheet 1 chèn xuống dưới 1 ô nội dung của sheet 2, thủ công thì lâu quá anh chị hỗ trợ em với
Em muốn để khi thay đổi nội dung sheet 1, sheet 2 thì sheet 3 tự động thay đổi theo
Em cảm ơn

A1=IF(MOD(ROW(),2),OFFSET('ND 1'!$A$1,(ROW()+1)/2-1,),'ND 2'!$A$1)
copy xuống

 

[Hoang2013]

Có thể nội dung macro sự kiện này tại trang 'Chen' là thích hợp cho bạn:

Private Sub Worksheet_Activate()
 Dim Rws As Long, J As Long, W As Long
 Dim Arr(), ND2 As Variant
 On Error GoTo LoiCT
 With Sheets("ND 1")
    Rws = .[A1].CurrentRegion.Rows.Count
1    'MsgBox Rws            '
    Arr() = .[A1].Resize(Rws).Value
 End With
2  ND2 = Sheets("ND 2").[A1].Value
 ReDim dArr(1 To 3 * Rws, 1 To 1)
4
 For J = 1 To UBound(Arr())
    W = 2 * J - 1
6    dArr(W, 1) = Arr(J, 1)
    dArr(W + 1, 1) = ND2
 Next J
5 Sheets("Chen").[A1].Resize(W + 1).Value = dArr()
Err_:               Exit Sub
LoiCT:
    MsgBox Error, , Erl:                Resume Err_
End Sub

 

[k2t2]

A1=IF(MOD(ROW(),2),OFFSET('ND 1'!$A$1,(ROW()+1)/2-1,),'ND 2'!$A$1)
copy xuống

Em cảm ơn ạ

 

[k2t2]

Có thể nội dung macro sự kiện này tại trang 'Chen' là thích hợp cho bạn:

Private Sub Worksheet_Activate()
 Dim Rws As Long, J As Long, W As Long
 Dim Arr(), ND2 As Variant
 On Error GoTo LoiCT
 With Sheets("ND 1")
    Rws = .[A1].CurrentRegion.Rows.Count
1    'MsgBox Rws            '
    Arr() = .[A1].Resize(Rws).Value
 End With
2  ND2 = Sheets("ND 2").[A1].Value
 ReDim dArr(1 To 3 * Rws, 1 To 1)
4
 For J = 1 To UBound(Arr())
    W = 2 * J - 1
6    dArr(W, 1) = Arr(J, 1)
    dArr(W + 1, 1) = ND2
 Next J
5 Sheets("Chen").[A1].Resize(W).Value = dArr()
Err_:               Exit Sub
LoiCT:
    MsgBox Error, , Erl:                Resume Err_
End Sub

Em cảm ơn ạ