1

次の例の解決策を探しています。ランダムな長さの 321 列のスプレッドシートを送ってきたクライアントがいます。行 2 には、店舗番号があります。各列には、異なる店舗番号があります。各列の間に空白の列を挿入し、新しい列の店舗番号を同じ長さのセルにコピーする必要があります。

以下を使用して列を追加します。

Sub InsertColumns()
Dim J As Integer, k As Integer
    J = Range("A1").End(xlToRight).Column
'j is the last column
For k = J To 2 Step -1
Range(Cells(1, k), Cells(1, k)).EntireColumn.Insert
Next k

前の列のデータに基づいてカウントアップするためのコードが必要です。前のストアから値をコピーし、前の列の行数に基づいて列に貼り付けます。

ありがとう！ジョー

4

2 に答える 2

0 
Sub tgr()

    Dim cIndex As Long

    For cIndex = Cells(2, Columns.Count).End(xlToLeft).Column To 2 Step -1
        Columns(cIndex + 1).Insert
        Range(Cells(1, cIndex + 1), Cells(Rows.Count, cIndex).End(xlUp).Offset(, 1)).Value = Cells(2, cIndex).Value
    Next cIndex

End Sub
于 2013-09-04T21:33:50.063 に答える