Sub Button1_Click()
anh em chú bác nào biết chỉ dùm mình
mình chỉ biết cách trình bày như vậy thôi
có gì các bạn đọc mà khó hiểu quá thì ráng dùm mình
cám ơn=action!!!!!
Sheets("sheet1").Activate
nextrow = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Cells(nextrow, 1) = Range("C1")
End Sub
đây là đoạn lần lượt chuyển 1 ô xuống từng dòng, nhưng mình muốn làm ngược lại đó là
chuyển lần lượt từng giá trị mỗi hàng vào 1 ônextrow = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Cells(nextrow, 1) = Range("C1")
End Sub
đây là đoạn lần lượt chuyển 1 ô xuống từng dòng, nhưng mình muốn làm ngược lại đó là
anh em chú bác nào biết chỉ dùm mình
mình chỉ biết cách trình bày như vậy thôi
có gì các bạn đọc mà khó hiểu quá thì ráng dùm mình
cám ơn=action!!!!!