| |
ウッシさん、回答ありがとうございます。
ご回答頂いたプログラムで問題なく動きました。
何故この構文でいけるのかテキスト片手に考えて見ているのですが
まだまだ理解できません。
せめて仕組みぐらいは頑張って理解してみます。
ご教授ありがとうございました。
▼ウッシ さん：
>こんにちは
>
>フィルタオプションでただコピーしているだけみたいなので、
>
>Sub データ蓄積()
> Dim myRow8 As Long, myRow9 As Long
> Dim LastRow1 As Long
>
> myRow8 = Worksheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Row
> myRow9 = Worksheets("Sheet5").Range("B" & Rows.Count).End(xlUp).Row
>
> LastRow1 = myRow9 + 1
>
> If MsgBox("データの蓄積を開始します。", vbExclamation + vbOKCancel) = vbOK Then
>
> If myRow8 >= 3 Then
>
> With Worksheets("Sheet1").Range("H3:Q" & myRow8)
> Worksheets("Sheet5").Range("B" & LastRow1).Resize(.Rows.Count, 10).Value _
> = .Value
> End With
>
> End If
>
> End If
>
>End Sub
>
>これだけかも？
|
|
VBA なんて大嫌いだ
- 07/3/15(木) 9:08 -
