| |
▼UO3 さん：
ひとつ目完了しました。ありがとうございました。
ふたつ目ですが、ほんと説明不足で申し訳ありません。、
Scheduleのシート及びこのブックにﾃﾞｰﾀを追加していくとデータ量が大きくなってきます。その為、完了したデータをShippedに移動させたいというのが目的です。
Scheduleから洗い替えではなく、Shippedにデータを移していきデータは積み上げとしたいです。
A列に1が入った途端に移動できますか？
イメージは列の切り取り→Shippedに列の貼り付け（値のみ）
移動させるということは行は上に詰まりますか？
詰まるとなると、表の最終行に行を追加したいです。
そのあと2000行目をコピーして同じく2000行目にコピーした列を挿入
>・SHipped というブックは、すでにマクロブックと同じフォルダに存在する。
>・タイトル行、書式などもセット済み。
>・常に、Scheduleから洗い替え。（作り直し）としています。（積み上げではない）
>
>Sub ふたつ目()
> Const fLine As Long = 10 ' データ開始行
> Const tLine As Long = 10 ' データ開始行
>
> Dim shTo As Worksheet
> Dim Wb As Workbook
> Dim c As Range
> Dim z As Long
>
> Application.ScreenUpdating = False
>
> Set Wb = Workbooks.Open(ThisWorkbook.Path & "\Shipped.xls")
> Set shTo = Wb.Worksheets("Shipped")
>
> With shTo
> Range(.Range("A1"), .UsedRange).Offset(tLine - 1).ClearContents
> End With
>
> z = tLine - 1
> With ThisWorkbook.Sheets("Schedule")
> For Each c In .Range("A" & fLine, .Range("A" & .Rows.Count).End(xlUp))
> If c.Value = 1 Then
> z = z + 1
> shTo.Range("A" & z & ":AU" & z).Value = c.EntireRow.Range("A1:AU1").Value
> End If
> Next
> Application.Goto shTo.Range("A1")
> End With
>
> Application.ScreenUpdating = True
> MsgBox "転記完了"
>End Sub
|
|
nonoka
- 13/2/7(木) 10:11 -
