nhannguyen019
Junior Member
Các cao nhân cho mình hỏi có cách nào làm được như vậy không, dùng hàm hay dùng VBA thì được ah
Source:
Source:
Cần cao nhân Excel giúp đỡ
- Người tạo chủ đề nhannguyen019
- Ngày bắt đầu
nhannguyen019
Junior Member
Đó bạn ơi, chuyển từ bên trái sang bên phải ah, mình lấy ví dụ thôi, để mình áp dụng vào ah. Có 4 dòng a giá trị là 1 sẽ chuyển thành a 1 1 1 1, 4 dòng b giá trị là 2 sẽ chuyển thành b 2 2 2
tưởng cái j ? copy rồi paste bằng Transpose nhé. Nhấn phải chuột, chọn Paste Special...
banemdi
Member
PHP:
Option Explicit
Sub ABC()
Dim i, j, k, l, m As Long
Dim SArr, Tmp, Result
Dim DicT As Dictionary
Set DicT = New Scripting.Dictionary
ReDim Tmp(1 To 4, 1 To 1)
SArr = Sheet1.Range("A1:B10").Value
For i = 1 To UBound(SArr, 1)
If Not DicT.Exists(SArr(i, 1)) Then
j = j + 1
DicT.Add SArr(i, 1), j
Tmp(j, 1) = SArr(i, 1)
End If
Next
ReDim Preserve Tmp(1 To 4, 1 To 5)
m = 1
For k = 1 To UBound(Tmp, 1)
For l = 1 To UBound(SArr, 1)
If Tmp(k, 1) = SArr(l, 1) Then
m = m + 1
Tmp(k, m) = SArr(l, 2)
End If
Next
m = 1
Next
Range("E1").Resize(UBound(Tmp, 1), UBound(Tmp, 2)).Value = Tmp
End SubBạn thử với code này nhé
theodoivozdalau
Senior Member
Cái này học thêm Power query có chỉ này thím
