|
かみちゃん様
こんにちは。以前教えていただいたコードを参考に現在取り組んでいるのですが
うまく行かない箇所がありましたので教えてください。
>店所情報.xlsで何も情報がない時に集約表から取込を行うと、2行目にある題字が
>取り込まれてしまうのですが、これを改善する方法はないのでしょうか。もうひとつ
>すいません。H19年度にファイルを変更する場合、> With WS1
>> .Range("B3", .Cells(Rows.Count, 2).End(xlUp)).Resize(, 4).Copy _
>> Workbooks("集約表.xls").ActiveSheet.Range("B6")
>以下のような感じでできるかと思います。
> With WS1
> If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then
> .Range("B3", .Cells(Rows.Count, 2).End(xlUp)).Resize(, 4).Copy _
> Workbooks("集約表.xls").ActiveSheet.Range("B6")
> End If
> End With
>
これと同じく店所情報.xlsのH列の入力を同じように集約表.xlsのE列に取り込みたい
のですが、上記のコードを参考に
With ws1
If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then
.Range("B3", .Cells(Rows.Count, 2).End(xlUp)).Resize(, 2).Copy _
Workbooks("集約表.xls").ActiveSheet.Range("B2")
End If
End With
With ws1
If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then
.Range("H3", .Cells(Rows.Count, 8).End(xlUp)).Resize(, 1).Copy _
Workbooks("集約表.xls").ActiveSheet.Range("E2")
End If
End With
WB1.Close
End Sub
と作ってみたのですが店所情報.xlsのH列に何も書かれていないとH列に
どうしても題字が入ってきてしまいます。
これを解決するにはどこを改善すればよいのでしょうか。
>> H18年度に8行目まで埋まっていたとしたらH19年度には9行目から入力できる
>
>でも、ここなのですが、
>H18年度に8行目まで埋まっていたとき、
>元の「H18店所情報.xls」に追加削除のような変更があったとします。
>そのときは、上記で言えば、9行目から出力するのではなく、7行目から上書きしたいですよね?
>でも、「H19店所情報.xls」から転記するときは、9行目からしたいですよね?
>元の「H18店所情報.xls」に追加削除はないのでしょうか?
>
>このことについて、[45539]で、以下のようなことを申し上げています。
>おわかりになりませんか?
「H18店所情報」をH19年度になってから変更することはありません。
お手数おかけします。すいません。
|
|