0

918 セル (A1:A918) の範囲があります。各セルには 1 つの文字列があります。各セルを引用符 (" ") で囲み、最後にコンマ (,) を追加する vba コードが必要です。次に、リストを転置します。それらの文字を現在のリストに追加することもできません。

例えば

CURRENT LIST  (Sheet1)
Cell A1: Bob
Cell A2: Jane
Cell A3: Dan
Cell A4: Phil
Cell A5: Jimmy


RESULT (Sheet2)
Cell A1: "Bob",
Cell B1: "Jane",
Cell C1: "Dan", 
Cell D1: "Phil",
Cell E1: "Jimmy",

It will appear like this: "Bob", "Jane", "Dan", "Phil", "Jimmy"

私は転置するために以下を使用することを知っています:

Worksheets("Sheet1").Range("A1:A5").Copy
Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True

しかし、文字列を各セルに含める方法がわかりません。誰でも助けることができますか？

4

2 に答える 2

2

これでうまくいくはずです

Sub Macro1()
Worksheets("Sheet1").Range("A1:A6").Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
'Columns("A:A").Select
Sheets("Sheet2").Range("A:A").Select
Selection.NumberFormat = """''""@""''"""","""
Worksheets("Sheet2").Range("A1:A6").Copy
Worksheets("Sheet2").Range("B1").PasteSpecial Transpose:=True
End Sub
于 2013-05-17T16:20:59.170 に答える