Dễ quá với Excel

Dễ quá với Excel Contact information, map and directions, contact form, opening hours, services, ratings, photos, videos and announcements from Dễ quá với Excel, KDC Gò Cát, Phường Phú Hữu, TP Thủ Đức, Ho Chi Minh City.

Nhìn năm 2070 chợt giật mình
12/08/2026

Nhìn năm 2070 chợt giật mình

Cách sử dụng freeze panes có định hàng cột excel
08/08/2026

Cách sử dụng freeze panes có định hàng cột excel

Làm chủ excel với Subtotal
07/08/2026

Làm chủ excel với Subtotal

🎆Hiểu excel cơ bản tập 1.
04/08/2026

🎆Hiểu excel cơ bản tập 1.

🌠Tặng code VBA: Gộp nhiều file excel thành 1 file 1 sheet.Sub TongHopFileExcel() Dim FolderPath As String Dim File...
02/08/2026

🌠Tặng code VBA: Gộp nhiều file excel thành 1 file 1 sheet.

Sub TongHopFileExcel()
Dim FolderPath As String
Dim Filename As String
Dim wbSource As Workbook
Dim wsDest As Worksheet
Dim rngData As Range
Dim LastRowDest As Long
Dim LastRowSource As Long
Dim HeaderRow As Long

With Application
.ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With

Set wsDest = ActiveSheet
HeaderRow = 1

With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Chọn thư mục chứa các file Excel cần tổng hợp"
If .Show = -1 Then
FolderPath = .SelectedItems(1) & "\"
Else
Exit Sub
End If
End With

Filename = Dir(FolderPath & "*.xlsx")

Do While Filename ""
Set wbSource = Workbooks.Open(FolderPath & Filename, ReadOnly:=True)

With wbSource.Sheets(1)
LastRowSource = .Cells(.Rows.Count, "A").End(xlUp).Row

If LastRowSource >= HeaderRow Then
LastRowDest = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row

If LastRowDest = 1 And wsDest.Cells(1, 1).Value = "" Then
Set rngData = .Range(.Rows(HeaderRow), .Rows(LastRowSource))
rngData.Copy wsDest.Cells(1, 1)
Else
Set rngData = .Range(.Rows(HeaderRow + 1), .Rows(LastRowSource))
rngData.Copy wsDest.Cells(LastRowDest + 1, 1)
End If
End If
End With

wbSource.Close SaveChanges:=False
Filename = Dir
Loop

With Application
.ScreenUpdating = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With

MsgBox "Đã tổng hợp dữ liệu thành công!", vbInformation
End Sub

Phím tắt cơ bản excel cho dân văn phòng, giải quyết công việc năng suất vượt trội.
25/07/2026

Phím tắt cơ bản excel cho dân văn phòng, giải quyết công việc năng suất vượt trội.

25/07/2026

🌠 Alt + =: Tự động tính tổng (AutoSum)
🎑Ctrl + T: Biến vùng dữ liệu thành Table chuyên nghiệp
🌇Ctrll+ i: Chèn nhanh ngày hiện tại
🌆F4: Nhắc lại thao tác vừa làm (VD: vừa tô màu vàng cho 16, chọn ô khác nhấn F4 để tô màu tiếp)

🌠Phím Tắt "Thần Thánh" Nâng Cao Hiệu Suất🚨Alt + =: Tự động tính tổng (AutoSum) cực nhanh cho cột hoặc hàng đang chọn.🏖️C...
24/07/2026

🌠Phím Tắt "Thần Thánh" Nâng Cao Hiệu Suất

🚨Alt + =: Tự động tính tổng (AutoSum) cực nhanh cho cột hoặc hàng đang chọn.

🏖️Ctrl + E (Flash Fill): Tự động điền dữ liệu theo mẫu (VD: Tách Họ và Tên, gộp chuỗi, định dạng lại số điện thoại...).

🏝️Ctrl + T: Biến vùng dữ liệu thành Table chuyên nghiệp (tự động tạo bộ lọc, định dạng đẹp, tự mở rộng khi thêm dữ liệu).

🎠F4: Nhắc lại thao tác vừa làm (VD: vừa tô màu vàng cho 1 ô, chọn ô khác nhấn F4 để tô màu tiếp) HOẶC khóa tọa độ ô ($A$1).
🚦Ctrl + ;: Chèn nhanh ngày hiện tại.

Address

KDC Gò Cát, Phường Phú Hữu, TP Thủ Đức
Ho Chi Minh City
84

Website

Alerts

Be the first to know and let us send you an email when Dễ quá với Excel posts news and promotions. Your email address will not be used for any other purpose, and you can unsubscribe at any time.

Shortcuts

Share