VBA（エクセル）でコピー＋文字を足す

質問

エクセルのＶＢＡを使ってシート１の指定セルに打った内容を、マクロを実行するとシート２の指定セルに入力できるようにしました。
プログラムは
s.Cells(r, 1).Copy Sheets("Sheet2").Range("A1")
な感じです。

ここに文字を追加して出力したいのですが、どうすればいいのでしょうか？
シート２にコピー出力される内容に、
『成績　第○位』という文字を追加して出力したいのです。つまり○の部分にシート１で打った内容（例１１）を、
シート２では（例『成績　第11位』）という内容を表示したいのですが、どのようなプログラムを追加すればよいのでしょうか？
本当に困っています。どなたか助けてください。

回答No.5

Wendy02

こんにちは。

あまり話が見えていないけれど、こういうのはどうかな？
＞行番号が振ってある一番左のセルを押すだけで実行できるとか・・・

灰色の行番号のところをクリックします。
Sheet2には、A列の上から下にコピーされていきます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　 Dim rng As Range
　 Dim Sh2 As Worksheet
　 Dim c As Range
　 Set Sh2 = Worksheets("Sheet2")
　 If Not Target.Address Like "$#*:$#*" Then Exit Sub
　 If Not IsNumeric(Target.Cells(1, 1).Value) Or _
　 IsEmpty(Target.Cells(1, 1).Value) Then Exit Sub
　 With Sh2.Range("A1", Sh2.Range("A65536").End(xlUp))
　　　If IsEmpty(.Value) Then
　　　　 .Value = "成績 第" & Target.Cells(1, 1).Value & "位"
　　　　 Else
　　　　 .Offset(1).Value = "成績 第" & Target.Cells(1, 1).Value & "位"
　　　End If
　 End With
　 Set Sh2 = Nothing
End Sub