Trích liệt nội dung trong bàng tính

[mymapmap]

Mình muốn trích nội dung được bôi xám bên phải sang bảng bên trái một cách tự động tùy thuộc vào số trang được copy dán. ttrong vd mình trích liệt kê thủ công cho 2 trang nếu số trang nhiều hơn sẽ mất rất nhiều thời gian và sai sót.
Mong các mem GPE chỉ mình cách làm tự động nhanh chính xác hơn
Xin cảm ơn!

 

[SA_DQ]

Giá như đừng trộn các ô tương tự 'M13:O13' thì nhanh hơn!

Option Explicit

Sub nCopy()
 Dim SoLan, Rng As Range, Cls As Range, cRng As Range
 Dim MyAdd As String:                           Dim Dem As Byte, Rws As Long
 
 SoLan = InputBox("Hay Nhap Só Làn Càn Chép:", "All:" & " De Chép Hét.", "2")
 If SoLan = "" Or SoLan = "0" Then
   Exit Sub
 ElseIf UCase(Left(SoLan, 1)) = "A" Then
   SoLan = 255
 End If
 Columns("T:T").UnMerge
 [T4].Resize(999, 6).Clear
 
 Set Rng = Range([M9], [M65500].End(xlUp))
 Application.DisplayAlerts = False
 For Each Cls In Rng
   If Left(Cls.Value, 3) = "KT3" Then
      Dem = 1 + Dem:                            If Dem > SoLan Then Exit For
      Set cRng = Range(Cls.Offset(23, -6), Cls.Offset(23, -6).End(xlDown))
      Rws = cRng.Rows.Count
      With [u65500].End(xlUp).Offset(1)
         .Offset(, -1).Resize(Rws).Value = Cls.Value
         .Offset(, -1).Resize(Rws).MergeCells = True
         
         .Offset(, -1).Resize(Rws).VerticalAlignment = xlCenter
         
         .Resize(Rws).Value = cRng.Value
         .Offset(, 1).Resize(Rws, 3).Value = cRng.Offset(, 6).Resize(Rws, 3).Value
      End With
   End If
 Next Cls
 Application.DisplayAlerts = True
End Sub

 

[mymapmap]

Cảm ơn Bác SA_DQ chỉ giúp. Nhung e muốn để trích ncopy của Bác vào nút copy&paste luôn được không? để khi cần copy paste bao nhieu trang thì có luôn bấy nhiêu dữ liệu trích luôn.
Lập trình này em còn gà lắm, mong Bác giúp
XIn cảm ơn Bác nhiều!

 

[ChanhTQ@]

Nhung e muốn để trích nCopy của Bác vào nút copy&paste luôn được không? để khi cần copy paste bao nhieu trang thì có luôn bấy nhiêu dữ liệu trích luôn.
Lập trình này em còn gà lắm, mong được giúp

Bạn fải chuột vô nút lệnh hiện có, khi đó 1 CS (cửa sổ) con hiện ra, ta cùng chọn vô dòng 'Assign Macro. . '
Khi đó CS Macro Name: xuất hiện, mà trong đó có 2 tên macro; Hãy chọn 1 tên macro cho nút lệnh này;
Sau khi chọn xong & bấm 'OK' ó nghĩa là ta đã gán xong nút lệnh cho macro thân thương của chúng ta.

Sau vài fút tự chào mừng chiến quả, bạn bấm chuột vô nút lệnh xem sao

Chúc thành công mĩ mãn!

 

[mymapmap]

Nhưng một nút lệnh có thực hiện được 2 lệnh Macro thân thương cùng một lúc không Bác?

 

[ChanhTQ@]

Nhưng một nút lệnh có thực hiện được 2 lệnh Macro thân thương cùng một lúc không Bác?

Chưa hề làm được 2 macro song hành; Chúng chỉ tuần tự là cùng thôi.

 

[mymapmap]

Cảm ơn Bác SA_DQ và Bác ChanhTQ@ đã quan tâm trả lời vấn đề của e.
Trường hợp trên Bác SA_DQ giải quyết cho em như vậy là quá tốt rồi, Nhưng với dạng báo cáo này (file đính kèm) e cũng muốn trích copy như trên sẵn tiện các Bác chỉ giúp em luôn với.
E muốn cột sai số có thêm điều kiện là trước mỗi con số âm/dương có dấu +/-cùng với khoản trắng
VD : - 0,023 hoặc + 0,023 hoặc 0,000
Xin các Bác chỉ giúp
Cảm ơn nhiều nhiều!

 

[ChanhTQ@]

Dữ liệu của bạn không fải số trị; chúng là chuỗi hay sao ấy; & bạn đã chuyển hết rồi còn gì.

Nếu đó là dạng số cần được chuyển sang dạng chuỗi thì chờ xíu, mình sẽ bổ sung vô bài này.

Bạn xài thử code này xem sao

Sub NumToString()
 Dim Cls As Range, Rng As Range, Dau As String, Num As Double
 
 Set Rng = Range([V4], [V65500].End(xlUp))       '<=|'
 For Each Cls In Rng
   Num = Cls.Value
   If IsNumeric(Num) Then
      Dau = "'" & Switch(Num < 0, "- ", Num = 0, " ", Num > 0, "+ ")
      Cls.Value = Dau & Mid(Str(Num), 2, 19)
   End If
 Next Cls
End Sub

 

[mymapmap]

Đúng đấy Bác ạ! do e phải cắt lấy chữ số có nghĩa nên em đã fixed() các giá trị nguồn theo đúng yêu cầu nên những con số đấy thành chuổi text rồi.
Cách em làm là thủ công sẽ rất mất thời gian và nhầm lẫn khi trích copy nhiều trang báo cáo trên một file. Nên e muốn có đoạn code sẽ tự copy các giá trị các giá tri cần trong báo cáo bên trái liệt kê sang bảng bên phải.
Trong file trên em làm VD cho một trang báo cáo, nhưng có trương hợp báo cáo lên đến 60,
Rất mong được trao đổi với các Bác để yêu cầu của em thực hiện
Xin cảm ơn!

 

[ChanhTQ@]

(Đã đưa code lên bài trên bổ sung & nhở MOD/SMODs ngang qua đây xoá giúp bài này; Rất cảm ơn!)