Hỗ trợ tham chiếu data vào format có sẵn

[Hidden2562]

Chào mọi người, mình đang cần hỗ trợ như sau
File test có 2 sheet: Sheet 1 và INTEM
Mình muốn sao chép dữ liệu cột:
B2 & C2 ở sheet 1 qua sheet INTEM ở vị trí tương ứng A3 & A4,
B3 & C3 ở sheet 1 qua sheet INTEM ở vị trí tương ứng B3 & B4,
.
.
.
.
cứ như vậy lần lượt với các ô B4&C4, B5&C5,....... qua vị trí tương ứng ở sheet INTEM


P/s: Vì mình làm để in tem nên khổ giấy đã chỉnh sẵn bên sheet INTEM, giữ nguyên kích thước các cột và các dòng
Sheet INTEM chỉ chứa tối đa 33 dữ liệu, nếu hơn thì tự tạo sheet mới giống sheet INTEM
Nọi DATA đều ở định dạng text ạ.
Data thực tế sẽ có tới hơn 1000 dữ liệu bên sheet 1
Mình đang cần gấp nên các cô dì chú bác nào biết thì hỗ trợ mình với nha.

Rất mong mn hỗ trợ, viết văn có gì hơi khó hiểu thì mn nói để mình chỉnh lại nhé

 

[Hidden2562]

Up cho mn vào xem ạ

 

[VetMini]

Bái phục đức kiên nhẫn của thớt.

 

[Hidden2562]

Bái phục đức kiên nhẫn của thớt.

hic mong có ai vào giúp chứ ca này gãy thật rồi

 

[CHAOQUAY]

Chào mọi người, mình đang cần hỗ trợ như sau
File test có 2 sheet: Sheet 1 và INTEM
Mình muốn sao chép dữ liệu cột:
B2 & C2 ở sheet 1 qua sheet INTEM ở vị trí tương ứng A3 & A4,
B3 & C3 ở sheet 1 qua sheet INTEM ở vị trí tương ứng B3 & B4,
.
.
.
.
cứ như vậy lần lượt với các ô B4&C4, B5&C5,....... qua vị trí tương ứng ở sheet INTEM


P/s: Vì mình làm để in tem nên khổ giấy đã chỉnh sẵn bên sheet INTEM, giữ nguyên kích thước các cột và các dòng
Sheet INTEM chỉ chứa tối đa 33 dữ liệu, nếu hơn thì tự tạo sheet mới giống sheet INTEM
Nọi DATA đều ở định dạng text ạ.
Data thực tế sẽ có tới hơn 1000 dữ liệu bên sheet 1
Mình đang cần gấp nên các cô dì chú bác nào biết thì hỗ trợ mình với nha.

Rất mong mn hỗ trợ, viết văn có gì hơi khó hiểu thì mn nói để mình chỉnh lại nhé

@Hidden2562 Bạn chạy thử code dưới đây.
Code viết theo suy đoán nên kết quả không giống với mẫu trong sheet IN TEM

Option Explicit

Sub xxx()
Dim Nguon
Dim sptD
Dim Kq
Dim csd
Dim i, k

On Error Resume Next

With Sheet1
    Nguon = .Range("B2", .Range("C2").End(xlDown))
    sptD = UBound(Nguon)
End With
ReDim Kq(1 To sptD * 5, 1 To 3)

csd = 1
For i = 1 To sptD Step 3
    For k = i To i + 2
        Kq(csd, k - i + 1) = Nguon(k, 1)
        Kq(csd + 1, k - i + 1) = Nguon(k, 2)
    Next k
    csd = csd + 5
Next i

With Sheet2
    .UsedRange.Clear
    .Range("A3").Resize(UBound(Kq), 3) = Kq
    .Range("A3").Resize(UBound(Kq), 3).HorizontalAlignment = xlCenter
End With
End Sub

 

[VetMini]

hic mong có ai vào giúp chứ ca này gãy thật rồi

Giữa bài #2 và #1 chỉ cách nhau có 1 giờ. Đức kiên nhẫn của bạn vượt trên mọi người khác đã từng giục bài trên đây. Kỷ lục tôi đếm gần đây nhất là 2 giờ.

 

[ken832189]

Dù ko liên quan lắm đến excel, nhưng theo mình nghĩ, dùng chức năng mail merger của word thì có lẽ là dễ xử lý bài này nhất.