Sửa lại tí:Mình có file đính kèm và đã viết code nhưng chưa hoạt động,
copy 1 cell của nhiều Sheet ra Sheet tổng theo hàng ngang ( ở sheet tong tô vàng)
Public Sub copy()
Dim ws As Worksheet, K As Long
ReDim darr(1 To Worksheets.Count)
For Each ws In Worksheets
If UCase(ws.Name) <> "TONG" Then
K = K + 1
darr(K) = ws.Range("C2").Value
End If
Next ws
if k then Sheets("tong").Range("A7").Resize(, K).Value = darr
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2