Chuyển dữ liệu cột sang hàng

Chia sẻ bởi:hands

★★★★★

‹ Xin mọi người giúp mình cách so... Hàm Countifs 2 điều kiện nằm ở... ›

Quảng cáo

Mong các bác giảm thời gian giúp em với nhé.

Mong các cao thủ nghiên cứu giúp làm thế nào để có thể chuyển đổi dữ liệu tự động từ dạng cột khách sạn dạng hàng tự động như thế này.Xin lỗi các bác mấy hôm rồi em bận quá ko vào diễn đàn được. Nay mới lại có thời gian vào mong các bác thông cảm và hướng dẫn giúp em với. Cảm ơn ah
Ý em muốn là làm thế nào mà VBA tự động chạy ra giữ cột J, K, L mà vẫn có link = dữ liệu ở cột H. Trước em cũng làm được cái VBA để có dữ liệu cột J, K, L rồi nhưng nó ko có dấu =
Mong các bác giảm thời gian giúp em với nhé.

Chạy thử cái code này nhé

Option Explicit
Sub CT()
Dim lr&, i&, j&, k&, rng, res()
lr = Cells(Rows.Count, "H").End(xlUp).Row
rng = Range("A7:H" & lr).Value
ReDim res(1 To UBound(rng), 1 To 4)
Do
i = i + 1
If IsNumeric(rng(i, 1)) Then
j = 0: k = k + 1: res(k, 1) = i
Do
j = j + 1
If rng(i + j, 4) = Range("J6").Value Then res(k, 2) = i + j
If rng(i + j, 4) = Range("K6").Value Then res(k, 3) = i + j
If rng(i + j, 4) = Range("L6").Value Then res(k, 4) = i + j
Loop Until i + j >= UBound(rng) Or IsNumeric(rng(i + j, 1))
End If
Loop Until i >= UBound(rng)
Range("J7:L10000").ClearContents
For i = 1 To UBound(res)
If Not IsEmpty(res(i, 2)) Then Cells(res(i, 1) + 6, "J").Formula = "=H" & res(i, 2) + 6
If Not IsEmpty(res(i, 3)) Then Cells(res(i, 1) + 6, "K").Formula = "=H" & res(i, 3) + 6
If Not IsEmpty(res(i, 4)) Then Cells(res(i, 1) + 6, "L").Formula = "=H" & res(i, 4) + 6
Next
End Sub