Xin hỏi cách gộp hàng khi các hàng có 1 số thành phần giống nhau.

[hohohihi11091991]

Mình có 1 bảng điểm thi thử, nhưng giờ nó chia làm nhiều hàng/học sinh. bây h mình muốn gộp vào để mỗi HS chỉ có 1 hàng điểm thôi.
Ví dụ như:
Hàng 1Điểm toán + văn) Nguyễn Văn A: 8 7
Hàng 2: (điểm Sử) Nguyễn Văn A: 9
Hàng 3: (điểm hóa) Nguyễn Văn A: 10
thành hàng như sau(có điểm theo từng môn): Nguyễn Văn A: 8 7 9 10

Ví dụ như file mình gưi cho các bạn

 

[huuthang_bd]

Mình có 1 bảng điểm thi thử, nhưng giờ nó chia làm nhiều hàng/học sinh. bây h mình muốn gộp vào để mỗi HS chỉ có 1 hàng điểm thôi.
Ví dụ như:
Hàng 1Điểm toán + văn) Nguyễn Văn A: 8 7
Hàng 2: (điểm Sử) Nguyễn Văn A: 9
Hàng 3: (điểm hóa) Nguyễn Văn A: 10
thành hàng như sau(có điểm theo từng môn): Nguyễn Văn A: 8 7 9 10

Ví dụ như file mình gưi cho các bạn

Bạn thử cách này xem

 

[hohohihi11091991]

bạn có thể hướng dẫn mình cụ thể hơn được không?
tại cái bảng điểm của mình những hơn 400 hs.

 

[chuot0106]

Mình có 1 bảng điểm thi thử, nhưng giờ nó chia làm nhiều hàng/học sinh. bây h mình muốn gộp vào để mỗi HS chỉ có 1 hàng điểm thôi.
Ví dụ như:
Hàng 1Điểm toán + văn) Nguyễn Văn A: 8 7
Hàng 2: (điểm Sử) Nguyễn Văn A: 9
Hàng 3: (điểm hóa) Nguyễn Văn A: 10
thành hàng như sau(có điểm theo từng môn): Nguyễn Văn A: 8 7 9 10
Ví dụ như file mình gưi cho các bạn

Mở File đính kèm, nhấn nút lọc điểm và xem kết quả.
Nhớ Ennable Macros trước khi mở File nhé!

 

[chuot0106]

Nếu muốn xóa các dòng đã được lọc điểm chỉ để lại tên thôi thì dùng File sau:

 

[chuot0106]

bạn có thể hướng dẫn mình cụ thể hơn được không?
tại cái bảng điểm của mình những hơn 400 hs.

Muốn mở rộng vùng dữ liệu thì bạn sửa chỗ đỏ đỏ là được nhé!

set rng=range("C2:H56")

 

[nginh]

bạn có thể hướng dẫn mình cụ thể hơn được không?
tại cái bảng điểm của mình những hơn 400 hs.

Bạn làm theo file sau

Sub gop()
Dim a()
Set r = Sheets("sheet1").UsedRange
W = r.Columns.Count
H = r.Rows.Count
r.Columns(1).Select
Set s = Selection
ReDim a(1 To H, 1 To W)
i = 1
x = 1
Do
n = WorksheetFunction.CountIf(s, s(i))
For k = 1 To W
    a(x, k) = r(i, k)
    For j = i To i + n - 1
        If r(j, k) <> r(i, k) Then a(x, k) = r(i, k) + r(j, k)
    Next
Next
i = j
x = x + 1
Loop Until s(i) = ""
Sheets("sheet2").[A1].Resize(i, W) = a
End Sub

 

[ndu96081631]

Mình có 1 bảng điểm thi thử, nhưng giờ nó chia làm nhiều hàng/học sinh. bây h mình muốn gộp vào để mỗi HS chỉ có 1 hàng điểm thôi.
Ví dụ như:
Hàng 1Điểm toán + văn) Nguyễn Văn A: 8 7
Hàng 2: (điểm Sử) Nguyễn Văn A: 9
Hàng 3: (điểm hóa) Nguyễn Văn A: 10
thành hàng như sau(có điểm theo từng môn): Nguyễn Văn A: 8 7 9 10

Ví dụ như file mình gưi cho các bạn

Bạn nên nghiên cứu PivotTable ---> ra kết quả trong 10 giây