[[20180523181840]]　『空白の列』（momo）　ページの最後に飛ぶ

『空白の列』（momo）

A列は空白で、B列は毎回データの量が変動します。
B列の変動した行数に伴い A列の同じ行数に文字を入れたいのですが
どのような変数？マクロにしたらよいでしょうか。

1行目は項目名が入っています。
c1セルに入れたい文字が記載されていて、
それをコピーし、A2セル以下に貼り付けたいです。
初心者のため宜しくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 Range("B2", Cells(Rows.Count, "B").End(xlUp)).Offset(, -1).Value = Range("C1").Value

（半平太） 2018/05/23(水) 18:51

ありがとうございます。

Range("B2", Cells(Rows.Count, "B").End(xlUp)).Offset(, -1).Value = Range("OK").Value

というように　ｏｋという決められた文字を入れたいときは　C1　のところを何に変えたらよいでしょうか。

もしくは　他のシートに　その言葉がある時に

 Range("OK").Value
の前に

 Sheets("倉庫").Select
    Range("A2").Select　を入れるとエラーとなりましたが
どのようにしたらよいでしょうか。
（momo） 2018/05/24(木) 10:15

よこから口出しですが。
Range("OK").Value

ＯＫというセル（範囲）が名前の定義で設定されているのですか？
（もこな２） 2018/05/24(木) 12:58

 >ｏｋという決められた文字を入れたい

Range("B2", Cells(Rows.Count, "B").End(xlUp)).Offset(, -1).Value = "ｏｋ"

とかかな。。。

（まっつわん） 2018/05/24(木) 13:09

ありがとうございます。
できました！
勉強になりました。
（momo） 2018/05/24(木) 19:41

コメント返信：