chuyển lần lượt từng giá trị mỗi hàng vào 1 ô

[lamxd071]

Sub Button1_Click()

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 ô
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!!!!!

 

[nghiaphuc]

Sub Button1_Click()

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 ô
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!!!!!

Bạn vẽ 2 nút lệnh (trên thanh Control ToolBox hay ActiveX Controls) lên Sheet1 và sử dụng code như sau:
1. Chuyển giá trị từ ô C1 tới hàng cuối cột A:

Private Sub CommandButton1_Click()
    [A65536].End(xlUp).Offset(1) = [C1]
End Sub

2. Chuyển giá trị từ hàng cuối cột A tới ô C1:

Private Sub CommandButton2_Click()
    [C1] = [A65536].End(xlUp)
End Sub

 

[lamxd071]

2. Chuyển giá trị từ hàng cuối cột A tới ô C1:

PHP Code:
Private Sub CommandButton2_Click()
[C1] = [A65536].End(xlUp)
End Sub


nếu như mình có 1 dãy số tồn tại ở mỗi ô từ A5-A50
thì mình muốn
Click vào button lần 1 thì sẽ bằng A5
Click vào button lần 2 thì sẽ bằng A6
....
Click vào button lần 50 thì sẽ bằng A50

thì phải làm sao mong bạn giúp dùm mình

 

[concogia]

2. Chuyển giá trị từ hàng cuối cột A tới ô C1:

PHP Code:
Private Sub CommandButton2_Click()
[C1] = [A65536].End(xlUp)
End Sub


nếu như mình có 1 dãy số tồn tại ở mỗi ô từ A5-A50
thì mình muốn
Click vào button lần 1 thì sẽ bằng A5
Click vào button lần 2 thì sẽ bằng A6
....
Click vào button lần 50 thì sẽ bằng A50

thì phải làm sao mong bạn giúp dùm mình

Click lần 1 thì [C1]=[A5]
Click lần 2 thì [C1]=[A6]
...........
Click lần thứ 50 thì [C1]=[A54] chứ bạn, đâu phải A50
Bạn thử code này xem

Private Sub CommandButton1_Click()
    Static I As Integer
         I = I + 1
            [c1] = Cells(4 + I, 1)
            If I = 50 Then I = 0
End Sub