Có một vấn đề xin nhờ mợi người giúp đỡ!!! (1 người xem)

[le nho hung]

Em có 1 bảng dữ liệu như trên sheet 2 là bảng em làm bằng tay ra
Có cách nào làm ra sheet kết quả nhanh không mọi người
Cảm ơn vì đã dọc bài của em mong mọi người giúp đỡ

 

[HungQuoc49]

Em có 1 bảng dữ liệu như trên sheet 2 là bảng em làm bằng tay ra
Có cách nào làm ra sheet kết quả nhanh không mọi người
Cảm ơn vì đã dọc bài của em mong mọi người giúp đỡ

Thử code này nếu bài không bị xóa

Public Sub Tach()
Dim DL, kq(), r As Long, i

DL = Sheet1.Range("A2").CurrentRegion
ReDim kq(1 To UBound(DL) * 2, 1 To 4)

For r = 1 To UBound(DL)
kq(r * 2 - 1, 1) = r * 2 - 1: kq(r * 2, 1) = r * 2
kq(r * 2 - 1, 2) = DL(r, 2): kq(r * 2 - 1, 3) = DL(r, 3): kq(r * 2 - 1, 4) = DL(r, 4)
kq(r * 2, 2) = DL(r, 5): kq(r * 2, 4) = DL(r, 6)
Next r

sheet2.UsedRange.Clear
Sheet2.Range("A2").Resize(UBound(kq), UBound(kq, 2)).Value = kq
Sheet2.Range("A2").Resize(UBound(kq), UBound(kq, 2)).Columns.AutoFit
End Sub

 

[thanh_tks]

Em có 1 bảng dữ liệu như trên sheet 2 là bảng em làm bằng tay ra
Có cách nào làm ra sheet kết quả nhanh không mọi người
Cảm ơn vì đã dọc bài của em mong mọi người giúp đỡ

sheet "ketQua" Ô G2 =IF((MOD(ROW()+1,2)&MOD(COLUMNS($G1:H$1),3))="00","",INDEX('du lieu'!$B$2:$F$38,INT(ROW()/2),(MOD(ROW()+1,2)*COLUMNS('ket qua'!$G$1:G$1))+(MOD(ROW(),2)*(INT(COLUMNS($F$2:G2)/2)+3))))

copy cho cả vùng (G2:I75) rồi so kết quả xem sao