=IF(SMALL(IF(OFFSET(B$2,MATCH($H$2,$A$3:$A$64,),,1000,)="",ROW(OFFSET(B$2,MATCH($H$2,$A$3:$A$64,),,1000,)),""),1)-MATCH($H$2,$A$1:$A$64,)>=ROW(1:1),OFFSET(B$1,MATCH($H$2,$A$3:$A$64,)+ROW(1:1),),"")bạn lại thêm một mớ cột -> mỗi lần cập nhật là kéo công thức ở cột A, B đó xuống à?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iR As Long
If Target.Address = "$H$2" Then
Range("I3:K18").Clear
iR = WorksheetFunction.Match(Range("H2"), Range("A3:A65000")) + 3
With Range("A" & iR).CurrentRegion
If iR = 4 Then
.Offset(1, 1).Resize(, 3).Copy Range("I3")
ElseIf iR > 4 Then
.Offset(, 1).Resize(, 3).Copy Range("I3")
End If
End With
End If
End Sub
nếu các hộ đều cách nhau 1 dòng trống thì cái này là đủ
=if(i2=0,0,hlookup(i$2,$b$2:$d$66,match($h$2,$a$2:$a$64,0)+rows(h$2:h3)-2,0))
Gia nhập GPE chỉ 1 năm mà bây giờ Thương tiến bộ thần tốc thật ---> Quá là bước tiến bộ kỳ diệu... Chúc mừng nha!
cái này là nhờ những cái hàm ma thuật mà ndu+dat_butmuc tranh luận với nhau từ đó mà rút ra đấy thôi
=IF(COUNTIF($B$3:$B$1000,$H$2)>=ROW(1:1),OFFSET(C$2,MATCH($H$2,$B$3:$B$1000,)+ROW(1:1)-1,),"")
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = [B][COLOR="red"]"$H$2" [/COLOR][/B]Then
Target(2, 2).Resize(20, 3).Clear
With Cells.Find(Target, , , 1, 2).Resize(20).SpecialCells(4)
.Areas(1).Offset(-1, 1).Resize(, 3).Copy Target(2, 2)
End With
End If
End SubNếu mã phủ hết cột và tác giả chính là Le duy thuong thì không cần dùng công thức mà dùng cái chiêu PIVIOT của lão chết tiệt HƯỚNG DẪN là số 1 , cái nài còn nhanh hơn code VBA
