/ /列内の値を検索し、空白以外のセルまで入力してください - excel、vba、excel-vba

列内の値を検索し、空白以外のセルまで入力してください - excel、vba、excel-vba

私は、以下のことを行うためにマクロを使用する方法を見つけるのが難しいです:

私はCol Aの最後の人口列を探しています。列Bの値を貼り付けるために1つの列をオフセットします。空白でないセルまで、Col Bに入れられたテキストをコピーして、上の空のセルすべてにコピーします。

各ループはB列に別の文字列を挿入します。なぜなら、空白以外のセルに当たるまでその文字列を貼り付ける方法を見つけようとしているからです。

例えば:

A                  B
Header        Header
9/30/14
9/30/14
9/30/14
9/30/14        text1
9/30/14
9/30/14
9/30/14
9/30/14        text2

のように見えるように:

A                  B
Header        Header
9/30/14        text1
9/30/14        text1
9/30/14        text1
9/30/14        text1
9/30/14        text2
9/30/14        text2
9/30/14        text2
9/30/14        text2

これはひどく混乱している場合はお詫び申し上げます!どんな助けでも大歓迎です!

回答:

回答№1は1

マクロではありません(記録できますが):

ColumnB、Ctrl + G、スペシャル、ブランク、OK、 =, Down、Ctrl + Enterを押します。


回答№2の場合は1

私は本当にpnutsのソリューションが好きで、VBAコードのこのビットは、VBAソリューションを探している場合でも、望ましいデータを提供することができるはずです。

Sub tgr()

Dim rngBlanks As Range
Dim BlankArea As Range

Set rngBlanks = Range("B1", Cells(Rows.Count, "B").End(xlUp)).SpecialCells(xlCellTypeBlanks)

For Each BlankArea In rngBlanks.Areas
BlankArea.Value = BlankArea.Cells(1).Offset(BlankArea.Cells.Count).Value
Next BlankArea

End Sub

回答№3の場合は-1

このようなものを試して、好みに合わせて編集してください:

Sub answer()
lastA = Range("A65000").End(xlUp).Row
lastB = Range("B" & lastA).End(xlUp).Row + 1
value2Paste = "Whatever U want"
Range("B" & lastB & ":B" & lastA) = value2Paste
End Sub