Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


389 / 73513 ←次へ | 前へ→

【78753】Re:特定の文字列と特定の文字列の間にある行をコピー貼付
お礼  藁にもすがりたい者  - 17/1/13(金) 15:22 -

引用なし
パスワード
   ▼ウッシ さん:

すごいです…
望んでいた形になりました…!

説明不足の中、このようにコードを組んでいただき
本当にありがとうございます。

これで作業が格段に効率化できます。


>こんにちは
>
>Sub test()
>  Dim r As Range
>  Dim v As Variant
>  Dim e As Long
>  Dim s As Range
>  Dim t As Range
>  Dim a As Worksheet
>  Dim b As Worksheet
>  
>  Set a = Worksheets("Sheet1") 'データの有るシート
>  e = a.Range("B" & Rows.Count).End(xlUp).Row
>  If e < 7 Then Exit Sub
>  
>  Application.ScreenUpdating = False
>  For Each r In a.Range("B1:B" & e)
>    If IsNumeric(r) = False Then
>      If r <> "" Then
>        If r <> v Then
>          If IsEmpty(v) = False Then
>            Set t = r.Offset(-1)
>            Set b = Worksheets.Add(After:=ActiveSheet)
>            b.Name = v
>            a.Range(s, t).EntireRow.Copy b.Range("A1")
>            Set s = r
>          Else
>            Set s = r
>          End If
>          v = r.Value
>        Else
>          v = r.Value
>          If s Is Nothing Then
>            Set s = r
>          End If
>        End If
>      End If
>    End If
>  Next
>  
>  Set b = Worksheets.Add(After:=ActiveSheet)
>  b.Name = v
>  a.Range(s, a.Range("B" & e)).EntireRow.Copy b.Range("A1")
>  
>  Application.ScreenUpdating = True
>  
>End Sub
>
>こんな感じで動きますか?
>
>B列のデータが店名と数値で判別出来る事が前提です。
>
>▼藁にもすがりたい者 さん:
>>▼ウッシ さん:
>>
>>おはようございます。
>>説明が足りずすみません。
>>
>>店舗の一覧はなくできればコピーしたものを貼り付ける際に
>>マクロにて店舗名でシートを作成し、そのシートに貼付ができればと思っておりました。
>>
>>このような回答で大丈夫でしたでしょうか
>>
>>
>>>こんにちは
>>>
>>>店舗12店舗の一覧はどこかのシートに有りますか?
>>>
>>>マクロの中で記述しますか?
>>>
>>>
>>>▼藁にもすがりたい者 さん:
>>>>業務上、必要なデータがPDFで送られてくる為
>>>>データの加工ができずなんとか方法がないかと模索しています。
>>>>
>>>>PDFのデータをコピーしてエクセルに貼り付けた状態が以下のとおりです。
>>>>
>>>>    A    B   C   D   E   F   G   H   I
>>>> 1   文字
>>>> 2   文字
>>>> 3   文字
>>>> 4   文字
>>>> 5   数値
>>>> 6   数値  店名A  数値  数値  数値  数値  数値  数値  数値
>>>> 7   数値  数値  数値  科目  金額 消費税
>>>> 8   数値  数値  数値  科目  金額 消費税
>>>> 9   数値  数値  数値  科目  金額 消費税
>>>>10   数値  数値  数値  科目  金額 消費税
>>>> .
>>>> .
>>>> .
>>>> .
>>>>50   数値  店名A  数値  数値  数値  数値  数値  数値  数値
>>>>51   数値  数値  数値  科目  金額 消費税
>>>>52   数値  数値  数値  科目  金額 消費税
>>>> .
>>>> .
>>>> .
>>>> .
>>>>90   数値  店名B  数値  数値  数値  数値  数値  数値  数値
>>>>91   数値  数値  数値  科目  金額 消費税
>>>>92   数値  数値  数値  科目  金額 消費税
>>>> .
>>>> .
>>>> .
>>>> .
>>>>
>>>>
>>>>やりたいことは店名Aと店名Bの間にある行をコピーして
>>>>店名Aのシートに貼り付けをしたいのです。
>>>>ただ、1店舗につきPDFが2〜3ページあり
>>>>上記のように店名Aが2ページあると店名Bまでに店名Aが2回出てきてしまい
>>>>これをマクロでどう処理すればよいかわからず…
>>>>また店舗は全部で12店舗あり、店名Lまであります。
>>>>
>>>>マクロについてもつい最近知った程度で
>>>>コードなど勉強中の身です…
>>>>ただ、この作業を効率化することが急務であり
>>>>今回、こちらのサイトにたどり着き、藁にもすがる思いでございます。
>>>>
>>>>どなたかお力添えを頂けないでしょうか…

72 hits

【78743】特定の文字列と特定の文字列の間にある行をコピー貼付 藁にもすがりたい者 17/1/12(木) 11:50 質問[未読]
【78744】Re:特定の文字列と特定の文字列の間にある... ウッシ 17/1/13(金) 8:55 質問[未読]
【78746】Re:特定の文字列と特定の文字列の間にある... 藁にもすがりたい者 17/1/13(金) 9:06 回答[未読]
【78748】Re:特定の文字列と特定の文字列の間にある... ウッシ 17/1/13(金) 9:55 回答[未読]
【78753】Re:特定の文字列と特定の文字列の間にある... 藁にもすがりたい者 17/1/13(金) 15:22 お礼[未読]
【78745】Re:特定の文字列と特定の文字列の間にある... β 17/1/13(金) 8:56 発言[未読]
【78747】Re:特定の文字列と特定の文字列の間にある... 藁にもすがりたい者 17/1/13(金) 9:19 回答[未読]
【78750】Re:特定の文字列と特定の文字列の間にある... β 17/1/13(金) 14:16 発言[未読]
【78751】Re:特定の文字列と特定の文字列の間にある... β 17/1/13(金) 14:35 発言[未読]
【78754】Re:特定の文字列と特定の文字列の間にある... 藁にもすがりたい者 17/1/13(金) 15:25 お礼[未読]
【78749】Re:特定の文字列と特定の文字列の間にある... 独覚 17/1/13(金) 11:08 発言[未読]
【78752】Re:特定の文字列と特定の文字列の間にある... 藁にもすがりたい者 17/1/13(金) 15:20 お礼[未読]

389 / 73513 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free