How to Skip cells while copying data

[paata01]

Hi all,
I am trying whole day how to copy cells, please help, here is what I try to do. I have data
A
B
C
and want to copy to another worksheet in this format
A
A
A
B
B
B
C
C
C

so when copying it puts "A" three times and moves to next cell.

 

[MARK858]

Something like?...

Sub copyIt()
    Dim c As Range
    For Each c In Sheets("Sheet1").Range("A1:A" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
        c.Copy Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(3, 1)
    Next
End Sub

Change sheet names to suit

 

[paata01]

Something like?...

Sub copyIt()
    Dim c As Range
    For Each c In Sheets("Sheet1").Range("A1:A" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
        c.Copy Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(3, 1)
    Next
End Sub

Change sheet names to suit

I copied this in VBA, but cant make it work. is formula general? I just changed sheet1 and sheet2 values, and renamed to names I used in excel. how should I check if it works and what inputs should I supply
Thanks

 

[MARK858]

Describe where you have placed the code and how you are trying to run it.
The data is whatever you want and it needs to be in column A of the sheet that was Sheet1 it gives the result on Sheet2.

 

[L. Howard]

Hi paata01,

A way to check the code, (which works as you requested) is to paste it in a new unused workbook in the sheet1 module.

Then enter A, B, C in column A. Then run the code. Sheet2 has the results.

Maybe post the code as you changed it just for a look-see?

Regards,
Howard

 

[paata01]

Describe where you have placed the code and how you are trying to run it.
The data is whatever you want and it needs to be in column A of the sheet that was Sheet1 it gives the result on Sheet2.

Thank you so much, it works. I forgot how to run macros. thanks again.
another small issue, i can't figure out how to do. please help
I have data on 6 rows and 2 columns, like this

tshirt tshirt
tshirt tshirt1
tshirt tshirt2

I want to type WORD tshirt just once on first cell and the rest depedent on this cell, I can do it with ALT ENTER, but cant add 1 and 2 at the end, how can i do it. 1 and 2 can be enything like "-SKU"
thanks

 

[paata01]

I did it, it was easy, thank you so much.