| |
▼k さん：
こんばんは。
>Ａ列の、データの入っているセルだけを別のシートにコピーしようとしています。
>
>Set mycell = Worksheets("E").Range("A3")
>
>If mycell.Value = "" Then Exit Sub
>Range(mycell, mycell.End(xlDown)).Copy
>
>とすると１行しかデータが入っていない場合にはＥシートの最終行までコピーされてしまいます。
>１行しかデータが入っていない場合にも、適切に１行だけコピーするうまい方法はないでしょうか。
最下行から上に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
|
|
ichinose
- 05/7/5(火) 20:10 -
