Copy lần lượt từng giá trị

[lyvanthang]

Thân chào các bạn
Mình nhờ anh em trên diễn đàn hỗ trợ cho mình đoạn code dùng để copy giá trị lần lượt của từng ô trong một cột qua một ô cố định.
Xin cám ơn

 

[anhtuan2939]

Thân chào các bạn
Mình nhờ anh em trên diễn đàn hỗ trợ cho mình đoạn code dùng để copy giá trị lần lượt của từng ô trong một cột qua một ô cố định.
Xin cám ơn

Code của bạn đây

Sub Copy_dulieu()
    Dim i As Integer, lr As Integer
    
    With Sheet1
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 1 To lr
            .Range("C1").Value = .Range("A" & i).Value
        Next i
    End With
End Sub

 

[bebo021999]

Ở ngoài thì ghi "copy"
Trong file thì ghi thế này:
"Dữ liệu trong cột A. Copy lần lượt ô A1 qua ô C1, rồi quay lại copy ô A2 qua ô C1, A3 qua ô C1. Cho đến khi cột A không còn dữ liệu nữa"
Không còn dữ liện nữa: Nghĩa là CUT?

Cho 2 phương án luôn:

Option Explicit
Sub cut()
'Dung dòng này neu muon CUT
'Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).cut Range("C1")
'-------------

'Dung dong nay neu muon copy
Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy Range("C1")
End Sub

 

[BuiQuangThuan]

Thân chào các bạn
Mình nhờ anh em trên diễn đàn hỗ trợ cho mình đoạn code dùng để copy giá trị lần lượt của từng ô trong một cột qua một ô cố định.
Xin cám ơn

Thử code này coi

Sub ABC()
    Dim Arr(), i&
    Arr = Sheet1.Range("A1:A8")
    For i = 1 To UBound(Arr)
        Sheet1.Range("C1").Value = Arr(i, 1)
        MsgBox "O C1 dang là: " & Arr(i, 1)
    Next
End Sub

 

[lyvanthang]

Thử code này coi

Sub ABC()
    Dim Arr(), i&
    Arr = Sheet1.Range("A1:A8")
    For i = 1 To UBound(Arr)
        Sheet1.Range("C1").Value = Arr(i, 1)
        MsgBox "O C1 dang là: " & Arr(i, 1)
    Next
End Sub

Cám ơn bạn. Ở đây bạn cho copy lần lượt 18 ô từ ô A1 đến A18. Cho mình hỏi thêm có cách nào copy từ ô A1 đến ô cuối cùng không có dữ liệu thì ngưng không vậy bạn?

 

[VetMini]

Bài này là bài tập của thớt tưởng tượng ra cho quý vị tập code hay biểu diễn code chứ chính nó chả có giá trị gì cả.
Code chỉ chạy máy n vòng rồi rốt cuộc chỉ về một lệnh có kết quả. Cũng như đi vòng chợ vài chục vòng rồi về quán cà phê đầu chợ uống.