1

列と複数のシートを含む Excel ワークシートがあります。A列をSheet1からSheet2にコピーしたいです。次に、列 A をコピーしたら、Sheet2 の列 B に、A の塗りつぶされた各セルに隣接する特定の値 (この場合は「D」) を設定します。

例：

Sheet1 には以下が含まれます。

Column A      B      C
       Arthur 1      34
       Bertha 2      35

Sheet2 には以下が必要です。

Column A      B
       Arthur "D"
       Bertha "D"

コードで立ち往生：

Worksheets("Sheet1").Columns("A").Copy ActiveCell.Columns("A:A").Columns("A")
4

1 に答える 1

4

これはあなたがしようとしていることですか？

Option Explicit

Sub Sample()
    Dim wsI As Worksheet, wsO As Worksheet
    Dim lRow As Long

    Set wsI = Sheets("Sheet1")
    Set wsO = Sheets("Sheet2")

    wsI.Columns(1).Copy wsO.Columns(1)

    lRow = wsO.Range("A" & wsO.Rows.Count).End(xlUp).Row

    wsO.Range("B1:B" & lRow).Value = "D"
End Sub
于 2012-06-09T04:00:57.723 に答える