2016-05-18 11 views
0

次のコードを使用して値を割り当てています。次の使用可能なセルの残りの列をどのように埋めるのですか?

Sheets("CDGL Data").Range("A" & Rows.Count).End(xlUp).Offset(1).Formula= "April" 

私はそれらの値を持つセル間の空白のセルでの私の隣接する行の残りの部分にまで埋めるために"April"を必要としています。

例: Cell A899Cell B899Cell C899"April"がその空白cell A899に置かれる必要がある値を持つ値を持つ、空白です。

助けてください!

+0

。私たちは質問とタグにもっと多くの情報が必要です。 – CathalMF

+0

これはExcelのVBAです – Hags

答えて

1

あなたはこれを使用することができます:あなたが使用しているソフトウェアまたは言語のコーディング

Dim lStartRow    As Long 
Dim lEndRow    As Long 
With Sheets("CDGL Data") 
    lStartRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1 
    lEndRow = Application.Max(.Range("B" & .Rows.Count).End(xlUp).Row, .Range("C" & .Rows.Count).End(xlUp).Row) 
    .Range(.Cells(lStartRow, "A"), .Cells(lEndRow, "A")).Value2 = "April" 
End With 
+0

最後の行を見つけるためのヒントについては、[このスレッド]を見てみることをお勧めします(http://stackoverflow.com/questions/11169445/error-in-finding-last-used-cell-in -vba) – BruceWayne

+0

それは美しく働いた、ありがとう! – Hags

関連する問題