[Funland] Copy data sang file excel khác thế nào?

cnvui2106

Xe buýt
Biển số
OF-26537
Ngày cấp bằng
29/12/08
Số km
737
Động cơ
483,858 Mã lực
Cái này cụ phải xử lý dữ liệu thô trước từ file các CN nhập liệu trước. Vì theo em làm thì chưa bao giờ copy dữ liệu từ 1 file đang Filter sang 1 file cũng đang Filter được
VD : nếu có khoảng trống thì xoá hết khoảng trống, dữ liệu lộn xộn thì phải sắp xếp lại,...
"copy dữ liệu từ 1 file đang Filter sang 1 file cũng đang Filter" => chính là nó đấy cụ, chưa biết làm thế nào
 

khonglaaica

Xe điện
Biển số
OF-53234
Ngày cấp bằng
20/12/09
Số km
2,328
Động cơ
100,290 Mã lực
Nơi ở
Tuyệt tình cốc
"copy dữ liệu từ 1 file đang Filter sang 1 file cũng đang Filter" => chính là nó đấy cụ, chưa biết làm thế nào
Em đã nói ở trên rồi, vấn đề là cụ đã biết lỗi đó là không thể khắc phục thì phải tìm hướng khác. Có thể là xử lý file tổng để không phải filter file đó.

Hướng xử lý là thế nên cụ phải thử và động não dần dần, vì dữ liệu cụ nhạy cảm nên em muốn giúp cũng không được.

Bên em vẫn thường xuyên tập hợp dữ liệu giống vậy nên đã tạo sẵn 1 marco, khi cần tổng hợp thì bấm nút và ngồi chờ xíu là xong.
 

hungpmu

Xe tăng
Biển số
OF-14950
Ngày cấp bằng
21/4/08
Số km
1,501
Động cơ
526,173 Mã lực
Do không biết cụ thể nên em chỉ có thể đoán mò, cái của cụ chắc phải dùng VBA mới xong. Cụ xem thử cái này có áp dụng được không nhé.
(Cái này không phải của em, em lấy từ cụ Nhattanktnn bên GPE

Option Explicit

Sub NT()
Dim cll As Range, Rng As Range, Msg As String
Msg = MsgBox("Xác nhan chuyen cong thuc thanh gia tri o vùng chon?", vbYesNo)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Msg = vbYes Then
Set Rng = Selection
For Each cll In Rng
If Not cll.EntireRow.Hidden Then
cll.Value = cll.Value
End If
Next
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
 
Thông tin thớt
Đang tải

Bài viết mới

Top