Cần các bác giúp về lấy dữ liệu trong bảng ra cột

[langtuvn]

Em có file excel( file đính kèm ah). Em muốn lấy dữ liệu từ bảng chuyển thành dữ liệu cột như phần bôi đỏ.
Mong các bác giúp ah.
*Hình ảnh mình họa

​

 

[frankliszt]

Em có file excel( file đính kèm ah). Em muốn lấy dữ liệu từ bảng chuyển thành dữ liệu cột như phần bôi đỏ.
Mong các bác giúp ah.
*Hình ảnh mình họa

View attachment 172139​

Gửi bạn,
Account của mình không tải file từ máy lên được. Gửi bạn công thức nhé

=VLOOKUP(YEAR(P5),$A:$N,MONTH(P5)+1,0)

 

[chucuoi92]

Em có file excel( file đính kèm ah). Em muốn lấy dữ liệu từ bảng chuyển thành dữ liệu cột như phần bôi đỏ.
Mong các bác giúp ah.
*Hình ảnh mình họa
​

Bạn xem thử công thức trong file đính kèm này nhé.

 

[Ba Tê]

Em có file excel( file đính kèm ah). Em muốn lấy dữ liệu từ bảng chuyển thành dữ liệu cột như phần bôi đỏ.
Mong các bác giúp ah.
*Hình ảnh mình họa

View attachment 172139​

Viết tặng bạn 1 Sub, bạn tùy nghi sử dụng.
Format cột P: "mm/yyyy", Cột Q: "General" trước khi chạy Sub.

Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long
sArr = Range("A6:A" & Range("A6").End(xlDown).Row - 1).Resize(, 13).Value
R = UBound(sArr)
ReDim dArr(1 To R * 12, 1 To 2)
For I = 1 To R
    For J = 2 To 13
        K = K + 1
        dArr(K, 1) = DateSerial(sArr(I, 1), J - 1, 1)
        dArr(K, 2) = sArr(I, J)
    Next J
Next I
Range("P5").Resize(K, 2) = dArr
End Sub

 

[dhn46]

Cột P bạn dùng

=DATE(OFFSET($A$5,INT(ROW(A12)/12),0),MOD(ROW(A12),12)+1,1)

Cột Q bạn dùng

=OFFSET($B$5,INT(ROW(A12)/12),MOD(ROW(A12),12))

Rồi kéo hết vùng dữ liệu nhé.

 

[eke_rula]

Em có file excel( file đính kèm ah). Em muốn lấy dữ liệu từ bảng chuyển thành dữ liệu cột như phần bôi đỏ.
Mong các bác giúp ah.
*Hình ảnh mình họa

View attachment 172139​

Nếu các năm liên tiếp nhau như vậy thì bạn dùng các CT này:

P5=EOMONTH(--"01/01/1970",ROW(A1)-1)
Q5=VLOOKUP(YEAR(P5),$A$6:$M$43,MONTH(P5)+1,0) mượn của bạn [COLOR=#0000ff][B]frankliszt [/B][/COLOR]

Fill xuống!!

 

[langtuvn]

Em đã tải file bác về.Cảm ơn bác nhiều ah

Bạn xem thử công thức trong file đính kèm này nhé.

 

[langtuvn]

Cảm ơn bác nhiều ah )

Viết tặng bạn 1 Sub, bạn tùy nghi sử dụng.
Format cột P: "mm/yyyy", Cột Q: "General" trước khi chạy Sub.

Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long
sArr = Range("A6:A" & Range("A6").End(xlDown).Row - 1).Resize(, 13).Value
R = UBound(sArr)
ReDim dArr(1 To R * 12, 1 To 2)
For I = 1 To R
    For J = 2 To 13
        K = K + 1
        dArr(K, 1) = DateSerial(sArr(I, 1), J - 1, 1)
        dArr(K, 2) = sArr(I, J)
    Next J
Next I
Range("P5").Resize(K, 2) = dArr
End Sub

 

[langtuvn]

Cảm ơn tất cả các bác nhiều ah