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 (2 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
- 947
- Được thích
- 691
- 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,874
- 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,805
- Được thích
- 6,359
- 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,874
- 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,874
- 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,591
- Được thích
- 22,913
- 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
Bài viết mới nhất
- Question
- Question
- Đã giải quyết
