hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Hiện mình đang cần chuyển từ báo cáo về lại dữ liệu nhưng không biết làm, các bạn chỉ giúp mình, cảm ơn ! Mình gửi file đính kèm
CHUYỂN BÁO CÁO VỀ LẠI DỮ LIỆU (1 người xem)
- Thread starter hoangyen69
- Ngày gửi
Người dùng đang xem chủ đề này
truongvu317
Thành viên tích cực
- Tham gia
- 15/11/10
- Bài viết
- 956
- Được thích
- 695
- Giới tính
- Nữ
Có mỗi cái file, không một lời giải thích, cố đợi đến mùa quýt sẽ có người giúp.
Upvote
0
Sheet1 là báo cáo, sheet2 là dữ liệu, từ sheet1 tạo kết quả sheet2. Hên xui
Upvote
0
bạn xài thử code này xem sao:
Mã:
Sub a()
Dim i, j, k As Integer, lastrow, lastcol As Long
lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
lastcol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
k = 2
For i = 2 To lastcol
For j = 2 To lastrow
Cells(k, 1) = Sheet1.Cells(1, i)
Cells(k, 2) = Sheet1.Cells(j, 1)
Cells(k, 3) = Sheet1.Cells(j, i)
k = k + 1
Next j
Next i
End Sub
Upvote
0
hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Ban đầu mình có báo cáo là sheet 1, làm sao để trình bày được ra dữ liệu là sheet 2
Upvote
0
hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Ban đầu mình có báo cáo là sheet 1, làm sao để trình bày được ra dữ liệu là sheet 2
Upvote
0
hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Không giống kết quả trong sheet2. Bạn xem lại giúp mình. Cảm ơn !
Upvote
0
hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Bạn ơi, trường hợp dữ liệu lớn giống vầy thì file chạy lâu và có khi không chạy được, bạn xem lại giúp mình nhé
Upvote
0
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
Góp ý cho bạn:
Bạn muốn làm cái gì thì nên nêu rõ vấn đề, các thành viên sẽ giúp cho giải pháp nào là tốt nhất.
Chứ không nên nhập liệu đến 4800 cột, nội tìm cột để nhập liệu là đã mất hết thời gian rồi, còn đâu là thời gian làm nữa.
Upvote
0
giaiphap
==(^o^)==
- Tham gia
- 12/3/07
- Bài viết
- 5,809
- Được thích
- 6,367
- Donate (Momo)
- Giới tính
- Nam
Nếu vậy sửa lại code thế này.
Mã:
Sub GPE()
On Error Resume Next
Dim i As Long, j As Long, k As Long, Arr(), dArr()
Arr = Sheet1.Range("A1:AJY" & Sheet1.Range("A65000").End(xlUp).Row).Value
ReDim dArr(1 To UBound(Arr, 1) * UBound(Arr, 2), 1 To 3)
For j = 2 To UBound(Arr, 2)
For i = 2 To UBound(Arr, 1)
k = k + 1
dArr(k, 1) = Arr(1, j)
dArr(k, 2) = Arr(i, 1)
dArr(k, 3) = Arr(i, j)
Next i
Next j
Sheet3.Range("A2:C" & Sheet3.Range("A65000").End(xlUp).Row).ClearContents
Sheet3.Range("A2").Resize(k, 3) = dArr
End Sub
Upvote
0
hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Cảm ơn bạn đã góp ý cho mình. Như tiêu đề thì file excel của mình gồm sheet 1 là báo cáo. Số cột 700 và có khả năng lên 1000 cột, số dòng là 500, mình cần chuyển sheet 1 về dạng dữ liệu như sheet 2. Nghĩa là 700 cột sẽ nhân cho 500 dòng thành 350.000 dòng đó bạn. Mục đích là mình cần filter cho dễ và có thể tận dụng để làm các báo cáo khác. Cảm ơn !
Upvote
0
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
Tại bài 12, tôi nêu vầy: Bạn muốn làm cái gì thì nên nêu rõ vấn đề, các thành viên sẽ giúp cho giải pháp nào là tốt nhất.
Có nghĩa là bạn đưa cái File với sheet nào đó có chứa tiêu đề 700 hoặc 1000 cột lên, để các thành viên giúp xây dựng lại cấu trúc và nhập liệu theo chiều dọc (có thể còn 40 cột), việc nhập liệu sẽ thuận tiên và đỡ sai sót khi di chuyển qua quá nhiều cột, nếu nhập liệu theo chiều dọc thì việc tổng hợp cũng được dễ dàng, nhanh chóng hơn.
Upvote
0
hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Mình hiểu ý của bạn là xây dựng cách nhập liệu theo chiều dọc để lên báo cáo. Nhưng vấn đề mình nhờ ở đây là ko có dữ liệu ban đầu, chỉ có dạng báo cáo vậy thôi, giờ cần làm ra dữ liệu. File có tiêu đề 700 cột và 500 dòng mình cũng gửi đính kèm lên diễn đàn rồi mà. Bạn xem những nội dung phía trên sẽ thấy
Upvote
0
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
Tiêu đề cột của bạn thế này: dh1, dh2......................, dh1000. Ai biết nó là cái gì, tiêu đề cột phải cụ thể theo cái thực tế để còn hình dung được cấu trúc của nó thế nào.
Với tiêu đề cột như File của bạn thì tôi xin chịu thua, miễn góp ý nữa.
Upvote
0
hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Tiêu đề cột thực tế nó là vậy mà bạn. Bạn hỏi kỹ thì mình sẽ giải thích thôi. Dh là "đặt hàng"
Upvote
0
- Tham gia
- 8/6/06
- Bài viết
- 14,691
- Được thích
- 23,045
- Nghề nghiệp
- U80
Bạn sửa vài chỗ trong nội dung macro đó lại như vầy sẽ hết lỗi;
Thời gian máy cà tèng của mình là hơn 80 gy:
PHP:
Sub GPE()
Dim i, j, K As Long, lastrow, lastcol As Long, Tmr As Double
With Sheet1.[B1]
lastrow = .CurrentRegion.Rows.Count
lastcol = .CurrentRegion.Columns.Count
End With
On Error GoTo LoiCT
K = 2: Tmr = Timer()
For i = 2 To lastcol
For j = 2 To lastrow
Cells(K, 1) = Sheet1.Cells(1, i)
Cells(K, 2) = Sheet1.Cells(j, 1)
Cells(K, 3) = Sheet1.Cells(j, i)
K = K + 1
Next j
Next i
MsgBox Timer() - Tmr, , "OK"
Err_: Exit Sub
LoiCT:
If Err = 6 Then
MsgBox K, , Timer() - Tmr: Resume Err_
Else
MsgBox Err: Exit Sub
End If
End Sub(Nếu ưng tốc độ, mình sẽ tìm cách khác nhanh hơn giúp bạn.)
Upvote
0
hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Cảm ơn bạn, nhờ bạn coi lại dùm mình từ dòng số 119402 bị dư ra rồi bạn
File đính kèm
Upvote
0
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
Xin thưa với bạn là tôi đã thiết kế lại còn có 10 nhập liệu theo chiều dọc (chứ không làm như bạn là 700 hay 100 cột) bây giờ bạn muốn theo dõi 10.000 đơn hàng cũng được, cỡ 350.000 dòng mà muốn báo cáo như của bạn thì dùng PivotTable chỉ mất vài phút.
Với cấu trúc File này bạn có thể sử dụng thêm nhiều chức năng khác như:
1/ Xuất mỗi đơn hàng 1 sheet.
2/ Xuất mỗi người đặt hàng là 1 sheet.
3/ Xuất mỗi tỉnh 1 sheet.
Và có thể tổng hợp mỗi tỉnh có bao nhiêu người đặt hàng, người nào ở tỉnh nào đặt loại hàng nào nhiều nhất hoặc người nào đặt hàng của mình nhiều nhất.
Lần chỉnh sửa cuối:
Upvote
0
hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Bạn be09 vẫn không hiểu ý mình muốn, mình không phải là người nhập liệu, nên cơ bản mình không có sheet dữ liệu, mình đã nói là mình chỉ có cái sheet báo cáo 700 cột 500 dòng thôi. Mình đang lấy cái báo cáo của người khác để làm thành dữ liệu. Vì người khác không cho dữ liệu nên mình phải làm ngược lại thôi. Vậy đó =.='
Upvote
0
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
Nếu người khác nhập liệu và cùng Công ty hay đơn vị thì bạn nên góp ý cho người nhập liệu như tôi thiết kế để người ta nhập liệu cho dễ dàng mà đỡ sai sót, sau này cần báo cáo cái gì bạn chỉ cần nhấn nút vèo cái là xong, chứ cấu trúc như kiểu File của bạn tôi không chơi.
Ba cái vụ này trước đây tôi cũng bị hoài, 11 huyện mỗi huyện báo cáo 1 kiểu, 13 phòng trực thuộc mỗi phòng làm báo cáo 1 kiểu, riêng 20 anh em trong phòng, mỗi người theo dõi kế hoạch 1 kiểu, mỗi khi làm báo cáo phải gôm một mớ hổn độn đó vô rồi xử lý mới có được 1 cái báo cáo. Chưa kể ba cái vụ anh em nó ghi tên 171 xã, mỗi tên xã là 1 kiểu (xã TT, xTT, xã T Thu, x Thiên Thu, lúc có chấm, lúc không chấm, lúc lại phẩy, lúc lại có khoảng trắng) ôi thôi thì hầm bà lằng.
Lần chỉnh sửa cuối:
Upvote
0
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Mình chỉnh lại 1 tí tị tì ti trong Code của thầy @giaiphap. Bạn xem thử
PHP:
Sub GPE()
On Error Resume Next
Dim Arr(), dArr()
Dim i As Long, j As Long, k As Long, Col As Long
With Sheet1
Col = .Range("B1").End(xlToRight).Column
Arr = .Range("A1", .Range("A" & Rows.Count).End(xlUp)).Resize(, Col).Value
End With
ReDim dArr(1 To UBound(Arr, 1) * UBound(Arr, 2), 1 To 3)
For j = 2 To UBound(Arr, 2)
For i = 2 To UBound(Arr, 1)
If Arr(i, j) <> Empty Then
k = k + 1
dArr(k, 1) = Arr(1, j)
dArr(k, 2) = Arr(i, 1)
dArr(k, 3) = Arr(i, j)
End If
Next i
Next j
With Sheet3
.Range("A2:C" & .Range("A" & Rows.Count).End(xlUp)).ClearContents
.Range("A2").Resize(k, 3) = dArr
End With
End Sub
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 8/6/06
- Bài viết
- 14,691
- Được thích
- 23,045
- Nghề nghiệp
- U80
Bạn thay dòng lệnh này vô macro đó & chạy lại xem sao"
PHP:
Arr = Sheet1.Range("A1").CurrentRegion.ValueKhi giả lập file lại theo macro sau, sẽ dễ kiểm tra hơn:
Mã:
Sub ThaySoLieu()
Dim Cot As Integer, Dong As Long, J As Long, W As Integer
With Sheet1
Dong = .[B1].CurrentRegion.Rows.Count - 1
Cot = .[B1].CurrentRegion.Columns.Count
End With
For W = 2 To Cot
Cells(2, W).Resize(Dong) = W
Next W
End Sub
Upvote
0
giaiphap
==(^o^)==
- Tham gia
- 12/3/07
- Bài viết
- 5,809
- Được thích
- 6,367
- Donate (Momo)
- Giới tính
- Nam
Vậy sửa thế này.
Mã:
Sub GPE()
On Error Resume Next
Dim i As Long, j As Long, k As Long, Arr(), dArr()
Arr = Sheet1.Range("A1:" & Cells(Sheet1.Range("A65000").End(xlUp).Row, Sheet1.Range("XFD1").End(xlToLeft).Column).Address).Value
ReDim dArr(1 To UBound(Arr, 1) * UBound(Arr, 2), 1 To 3)
For j = 2 To UBound(Arr, 2)
For i = 2 To UBound(Arr, 1)
k = k + 1
dArr(k, 1) = Arr(1, j)
dArr(k, 2) = Arr(i, 1)
dArr(k, 3) = Arr(i, j)
Next i
Next j
Sheet3.Range("A2:C" & Sheet3.Range("A65000").End(xlUp).Row).ClearContents
Sheet3.Range("A2").Resize(k, 3) = dArr
End Sub
Upvote
0
hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Bạn ơi, bạn cho mình hỏi thêm, nếu trường hợp cột DH nó trùng 2 lần thì mình làm sao từ sheet 1 chuyển về được như sheet 2. Mình gửi file đính kèm, nhờ bạn xem giúp. Cảm ơn bạn !
Upvote
0
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Bạn thử cái này xem sao
PHP:
Sub GPE1()
Dim R1 As Long, R2 As Long, Col As Long, sRng As Range, Rng As Range, J As Long, I As Long
R1 = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
R2 = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
Col = Sheet1.Range("A1").End(xlToRight).Column
Set sRng = Sheet1.Range("A2:A" & R1)
I = 2
If R2 > 2 Then Sheet2.Range("A2:A" & R2).Resize(, 4).ClearContents
For J = 4 To Col Step 2
Sheet2.Range("A" & I).Resize(R1 - 1) = Sheet1.Cells(1, J)
sRng.Copy Sheet2.Range("B" & I)
Sheet1.Range(Sheet1.Cells(2, J), Sheet1.Cells(R1, J + 1)).Copy Sheet2.Range("C" & I)
I = Sheet2.Range("A" & Rows.Count).End(xlUp).Row + 1
Next J
End Sub
Upvote
0
hoangyen69
Thành viên chính thức
- Tham gia
- 3/7/10
- Bài viết
- 51
- Được thích
- 5
Cảm ơn bạn, mình đã làm được rồi ! Bạn cho mình hỏi thêm là trường hợp code của thầy giaiphap thì mình làm tiếp như thế nào để được kết quả giống vầy vậy bạn ?
Upvote
0
Bài viết mới nhất
Không chỉnh sửa, copy được hình ảnh trong file excel.
(1 người xem)
- Question
- Question
- Question