Viết Macro đọc 1 cột dữ liệu trong excel

[haingo08tlt]

Hi all !
Mình mới làm việc với VBA trong excel. Gặp phải vấn đề thế này. Mình muốn lấy 1 cột dữ liệu trong excel (chăng hạn như lấy hết dữ liệu trong cột A) nhưng phải viết macro trong VBA để lấy. Ai biết chỉ giúp
Thank !

 

[ndu96081631]

Hi all !
Mình mới làm việc với VBA trong excel. Gặp phải vấn đề thế này. Mình muốn lấy 1 cột dữ liệu trong excel (chăng hạn như lấy hết dữ liệu trong cột A) nhưng phải viết macro trong VBA để lấy. Ai biết chỉ giúp
Thank !

Lấy thì được rồi, chẳng hạn:

Dim Rng As Range
Set Rng = Range(....)

Hoặc

Dim ValRng
ValRng = Range(....).Value

Vấn đề là "lấy" xong rồi sẽ làm gì vói nó đấy

 

[haingo08tlt]

Hi!
Ở đây em muốn lấy dữ liệu ở cột A và sau đó ghi dữ liệu đó sang cột G. Em muốn đọc từng cell để ghi qua chứ không dùng method copy.
Thank
Cám ơn ndu96081631 đã tận tình giúp đỡ.

 

[ndu96081631]

Hi!
Ở đây em muốn lấy dữ liệu ở cột A và sau đó ghi dữ liệu đó sang cột G. Em muốn đọc từng cell để ghi qua chứ không dùng method copy.
Thank
Cám ơn ndu96081631 đã tận tình giúp đỡ.

Chẳng lẽ bạn định dùng vòng lập sao?
Ngoài cách copy thì cũng có phương pháp gán trực tiếp, chẳng hạn:

Range("G1:G100").Value = Range("A1:A100").Value

Có lẽ cách này nhanh nhất

 

[haingo08tlt]

Hi !
Đúng rồi em muốn dùng vòng lặp để lấy data của từng cell đó. Còn lấy hết qua dùng lệnh copy có tốt nhất. Dữ liệu ở đâu có thể từ sheet1 sang sheet2.
Thank!!

 

[SA_DQ]

em lấy dữ liệu cột A và sau đó ghi dữ liệu đó sang cột G. Em muốn đọc từng cell để ghi qua chứ không dùng method copy. Thank

Có nghĩa là bạn muốn nó hiện lần lượt từng ô dữ liệu, cái nào ưng thì chép, không ưng thì bỏ?

 

[haingo08tlt]

Hi !
Đúng zậy, vì mình muốn lấy 1 số dữ liệu theo điều kiện chứ không lấy hết.
Thank!

 

[SA_DQ]

Macro của bạn đây & nhớ lần sau nói rõ nghĩa thêm một tẹo, nha!

Option Explicit
Sub CopyToG()
 Dim Clls As Range, Cop As Byte
 Range("G2:G" & [a65500].End(xlUp).Row).Clear
 For Each Clls In Range([A2], [A2].End(xlDown))
   Cop = MsgBox("Copy this to 'G': " & Chr(10) & Clls.Value, 20, "GPE.COM")
   If Cop < 7 Then
      With [G65500].End(xlUp).Offset(1)
         .Value = Clls.Value
      End With
   End If
 Next Clls
End Sub

Những mong không cần đưa file lên để minh họa!

Chúc đầu xuân vui vẻ!

 

[ndu96081631]

Hi !
Đúng zậy, vì mình muốn lấy 1 số dữ liệu theo điều kiện chứ không lấy hết.
Thank!

Các phần mềm khác thì mình không biết, nhưng đã làm trong Excel thì với bài toán lọc dữ liệu có điều kiện bạn nên nghĩ đến AutoFilter hoặc Advanced Filter
Bạn đưa file cụ thể lên đây, rất có thể dùng được phương pháp này đấy ---> Khỏi mất công vòng lập, tốn thời gian!