• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• 空腹おやじ2018/06/01 08:51:11

  満足100pt

  こういう事でしょうか？
  

  Public Sub sample()
  
      Dim i
      i = Sheet3.Cells(1, Columns.Count).End(xlToLeft).Column
      If Sheet3.Cells(1, i).Value <> "" Then i = i + 1 'A1が空白ならiを1とする
  
      Sheet2.Range("A1").CurrentRegion.Copy 'Sheet2のデータをコピー
      'Sheet3に貼りつけ
      Sheet3.Cells(1, i).PasteSpecial Paste:=xlPasteValues, _
      Operation:=xlNone, SkipBlanks:=False, Transpose:=False
      Sheet2.Cells.Clear '記録用シートの初期化
  
      Call getAverage(i)
  
  End Sub
  
  Private Sub getAverage(ByVal lBeginCol As Long)
  
      Const TARGET_SHEET_NAME As String = "Sheet3"
  
      Const COL_OFFSET        As Long = 2
  
      Dim sHeader     As String
      Dim lCol        As Long
      Dim lEndRow     As Long
      Dim lTargetCol  As Long
  
      lCol = lBeginCol
  
      With ThisWorkbook.Worksheets(TARGET_SHEET_NAME)
          sHeader = .Cells(1, lCol).Value
  
          Do Until sHeader = ""
              lEndRow = .Cells(1, lCol).End(xlDown).Row
  
              lTargetCol = lCol + 1
  
              .Cells(1, lTargetCol).Value = WorksheetFunction.Average(.Range(.Cells(2, lTargetCol), .Cells(lEndRow, lTargetCol)))
  
              lCol = lCol + COL_OFFSET
  
              sHeader = .Cells(1, lCol).Value
          Loop
      End With
  
  End Sub
  

  スター

  • 

    1件のコメントを見る

  • サク 2018/06/01 09:34:31

    す・・・すごいです。
    完璧に望んでいた処理が実行されています。
    
    変数やコードの意味を、きちんと読ませていただいて理解したいと思います！

    スター

その他の回答

この質問へのコメント

質問の情報

登録日時

2018-05-31 22:08:03

終了日時

2018-06-01 09:33:33

回答条件

1人1回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• 【短い間に、、、、】、という意味で、 「いちにち　ふつか　で」「いちにち　ふつか　のうちに」とか言い…匿名質問者221日前
• 皇族数確保の為の有識者会議で、 （A）皇族女子の婚姻後の身分を皇族とすることを認めるという案 （B）養子…匿名質問者11日前
• 公募ガイドや公募ナビのようなサイトをご存じの方、ご教示ください匿名質問者11日前
• 公募ガイドや公募ナビの様な自動で掲載される紹介サイトをご存じの方いらしゃいますか…Aa11311日前
• 垢ぬけたいです。 丸顔ってどうやったら改善しますか？匿名質問者21日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ