Excel VBA質問箱 IV

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

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


45044 / 76732 ←次へ | 前へ→

【36695】Re:特定の文字列をシート名に含むシートのみ串刺し計算
回答  Kein  - 06/4/8(土) 12:38 -

引用なし
パスワード
   こんな感じで、どうでしょーか ?

Sub Code集計()
  Dim i As integer, j As Integer, Scnt As Integer
  Dim Sary() As String, Snm As String

  Application.ScreenUpdating = False
  Scnt = Worksheets.Count
  ReDim Sary(0): Sary(0) = ""
  For i = 1 To Scnt
   With Worksheets(i)
     If InStr(1, .Name, "-") = 0 Then GoTo NLine
     If Right$(.Name, 1) = "計" Then Exit For
     Snm = Split(.Name, "-")(0) & "計"
     If IsError(Application.Match(Snm, Sary, 0)) Then
      j = j + 1: ReDim Preserve Sary(j): Sary(j) = Snm 
      .Copy After:=Worksheets(SCnt)
      Worksheets(SCnt + 1).Name = Snm
     Else
      .Range("D18:D30").Copy
      Worksheets(Snm).Range("D18").PasteSpecial _
       xlPasteValues, xlPasteSpecialOperationAdd
      Application.CutCopyMode = False
     End If
   End With
NLine:
  Next i
  On Error Resume Next
  Worksheets(1).Activate
  Application.ScreenUpdating = True
  Erase Sary
End Sub

0 hits

【36692】特定の文字列をシート名に含むシートのみ串刺し計算 VBA☆ 06/4/8(土) 8:51 質問
【36693】Re:特定の文字列をシート名に含むシートの... VBA☆ 06/4/8(土) 8:57 質問
【36694】Re:特定の文字列をシート名に含むシートの... ponpon 06/4/8(土) 12:12 発言
【36695】Re:特定の文字列をシート名に含むシートの... Kein 06/4/8(土) 12:38 回答
【36698】Re:特定の文字列をシート名に含むシートの... Hirofumi 06/4/8(土) 15:16 回答
【36701】Re:特定の文字列をシート名に含むシートの... ichinose 06/4/8(土) 20:08 発言
【36702】Re:特定の文字列をシート名に含むシートの... ichinose 06/4/9(日) 8:10 発言
【36703】みなさまありがとうございます VBA☆ 06/4/9(日) 14:49 お礼
【36773】遅くなりました。 [名前なし] 06/4/13(木) 14:56 質問
【36779】Re:遅くなりました。 Kein 06/4/13(木) 16:16 回答
【36789】Re:遅くなりました。 ponpon 06/4/13(木) 21:19 発言

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