|
▼k さん:
こんばんは。
>A列の、データの入っているセルだけを別のシートにコピーしようとしています。
>
>Set mycell = Worksheets("E").Range("A3")
>
>If mycell.Value = "" Then Exit Sub
>Range(mycell, mycell.End(xlDown)).Copy
>
>とすると1行しかデータが入っていない場合にはEシートの最終行までコピーされてしまいます。
>1行しかデータが入っていない場合にも、適切に1行だけコピーするうまい方法はないでしょうか。
最下行から上にEndプロパティを使うとよいですよ!!
'==================================================
Sub main()
Dim rng As Range
With Worksheets("E")
Set rng = .Range("a3", .Cells(.Rows.Count, 1).End(xlUp))
If rng.Row >= .Range("a3").Row Then
rng.Copy
End If
End With
End Sub
|
|