Tham chiếu dữ liệu từ phải sang trái

[huonglien1901]

Chào mọi người!

Em có vấn đề nhờ mọi người hỗ trợ
Em có 3 Sheet:

Sheet1: Sheet DETAIL

Sheet 2: Sheet IN

Sheet 3: Sheet PC
Trong Sheet PC là dữ liệu theo HÀNG DỌC

Sheet DETAIL: lấy dữ liệu từ SHEET PC: chuyển sang thành 3 cột.

Sheet IN: Dựa vào sheet PC để lấy dữ liệu.

Em cảm ơn mọi người nhiều!

 

[dazkangel]

Chào mọi người!

Em có vấn đề nhờ mọi người hỗ trợ
Em có 3 Sheet:

Sheet1: Sheet DETAIL

Sheet 2: Sheet IN

Sheet 3: Sheet PC
Trong Sheet PC là dữ liệu theo HÀNG DỌC

Sheet DETAIL: lấy dữ liệu từ SHEET PC: chuyển sang thành 3 cột.

Sheet IN: Dựa vào sheet PC để lấy dữ liệu.

Em cảm ơn mọi người nhiều!

Thử công thức này tại sheet Detail:

=OFFSET(PC!$Z$1,(ROW(A1)-1)*3+COLUMN(A1),)

Sheet in:

=OFFSET(DETAIL!$D2,,-COLUMN(A1)+1)

 

[huonglien1901]

Thử công thức này tại sheet Detail:

=OFFSET(PC!$Z$1,(ROW(A1)-1)*3+COLUMN(A1),)

Sheet in:

=OFFSET(DETAIL!$D2,,-COLUMN(A1)+1)

Anh có thể sử dụng INDEX được không?
Anh biểu diễn cho em học hỏi với,

 

[Ba Tê]

Chào mọi người!

Em có vấn đề nhờ mọi người hỗ trợ
Em có 3 Sheet:

Sheet1: Sheet DETAIL

Sheet 2: Sheet IN

Sheet 3: Sheet PC
Trong Sheet PC là dữ liệu theo HÀNG DỌC

Sheet DETAIL: lấy dữ liệu từ SHEET PC: chuyển sang thành 3 cột.

Sheet IN: Dựa vào sheet PC để lấy dữ liệu.

Em cảm ơn mọi người nhiều!

Hổng chơi mấy chỗ Merge Cells nhé.
2 Sub dùng cho 2 sheets.

Public Sub s_Detail()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long
    sArr = Sheets("PC").Range("Z2", Sheets("PC").Range("Z2").End(xlDown)).Value
    R = UBound(sArr)
ReDim dArr(1 To R, 1 To 3)
For I = 1 To R Step 3
    K = K + 1
    dArr(K, 1) = sArr(I, 1)
    If I + 1 <= R Then dArr(K, 2) = sArr(I + 1, 1)
    If I + 2 <= R Then dArr(K, 3) = sArr(I + 2, 1)
Next I
    Sheets("DETAIL").Range("B2:D2").Resize(1000).ClearContents
    Sheets("DETAIL").Range("B2:D2").Resize(K) = dArr
End Sub

Public Sub s_In()
Dim sArr(), dArr(), I As Long, K As Long, R As Long
    sArr = Sheets("DETAIL").Range("B2", Sheets("DETAIL").Range("B2").End(xlDown)).Resize(, 3).Value
    R = UBound(sArr)
ReDim dArr(1 To R, 1 To 3)
For I = 1 To R
    dArr(I, 1) = sArr(I, 3)
    dArr(I, 2) = sArr(I, 2)
    dArr(I, 3) = sArr(I, 1)
Next I
    Sheets("IN").Range("A1:C1000").ClearContents
    Sheets("IN").Range("A1:C1").Resize(R) = dArr
End Sub

 

[dazkangel]

Anh có thể sử dụng INDEX được không?
Anh biểu diễn cho em học hỏi với,

Thì đổi thành thế này, Offset qua index đơn giản mà:
DETAIL:

=INDEX(PC!$Z$2:$Z$361,(ROW(A1)-1)*3+COLUMN(A1))

IN:

=INDEX(DETAIL!$B$2:$D$121,ROW(A1),4-COLUMN(A1))

 

[giaiphap]

Mới trả lời xong lại thấy #5.

 

[dazkangel]

Mới trả lời xong lại thấy #5.

Haha giống nhau à anh

 

[huonglien1901]

Thì đổi thành thế này, Offset qua index đơn giản mà:
DETAIL:

=INDEX(PC!$Z$2:$Z$361,(ROW(A1)-1)*3+COLUMN(A1))

IN:

=INDEX(DETAIL!$B$2:$D$121,ROW(A1),4-COLUMN(A1))

Em cảm ơn Anh nhiều!

Chúc Anh ngủ ngon!!!