Hỏi về vòng lặp và thế vào phép tính (1 người xem)

[killerbatbai]

Em có bài tập chạy vòng lặp và thế vào bảng tính ở sheet 2. Nhưng ko hiểu sao nó bị lỗi 1004. Ai giúp đỡ giùm em
Tks nhiều ạ

 

[nghiaphuc]

Em có bài tập chạy vòng lặp và thế vào bảng tính ở sheet 2. Nhưng ko hiểu sao nó bị lỗi 1004. Ai giúp đỡ giùm em
Tks nhiều ạ

Code của bạn như vầy:

Sub cc()
    Dim i As Integer
    For i = 1 To 3
        Sheet2.Range("a1:a10") = Sheet1.Range(Cells(1, i), Cells(10, i)).Value
    Next
End Sub

Trong code trên có 2 vấn đề cần phải sửa:
- Vấn đề thứ nhất là bạn thiếu .Value đằng sau các Range. Trong trường hợp này phải có .Value thì code mới chạy được (đây là nguyên nhân chính).
- Vấn đề thứ hai là các ô Cells(1, i), Cells(10, i) chưa được khai báo tường minh là của sheet nào, khi đó VBA sẽ hiểu là các ô này nằm trên sheet hiện hành. Vì vậy, kết quả sẽ phụ thuộc vào vấn đề bạn đang đứng ở sheet nào để chạy code. Bạn cần thêm Sheet1. vào trước các ô này để đảm bảo rằng đây là các ô nằm trên Sheet1.
Sau khi sửa thì code bây giờ là:

Sub cc()
    Dim i As Integer
    For i = 1 To 3
        Sheet2.Range("a1:a10").Value = Sheet1.Range(Sheet1.Cells(1, i), Sheet1.Cells(10, i)).Value
    Next
End Sub

Hoặc cũng có thể sửa thành:

Sub cc()
    Dim i As Integer
    For i = 0 To 2
        Sheet2.Range("a1:a10").Value = Sheet1.Range("a1:a10").Offset(,i).Value
    Next
End Sub