別のシートの列ヘッダー

Question

シート2にデータを持つ行がたくさんありますが、行の最大値の列名を必要とします（ifループ内のB2の列名からAH2まで）。必要

Sub shanaya() 
    Dim j As Integer 
    Dim i As Integer 
    Dim z As Integer 
    Dim x As Integer 
    z = 35 
    For i = 11 To 28 
     For j = 2 To 19 
      If Sheet8.Cells(j, 1) = Sheet1.Cells(i, 1) Then 
       Sheet1.Cells(i, 10) = Sheet8.Cells(j, z) 
       Max [(Sheet8.Cells(J,2)): (Sheet8.Cells(j,z))] 
       Sheet1.Cells(i,13) = column header of max function 
      End If 
     Next j 
    Next i 
End Sub 

Answer 1

二つの重要な行は行に沿っている。

MaxVal = application.max(sheet8.range(sheet8.cells(j,2),sheet8.cells(j,z))) 
sheet1.cells(i,13) = sheet8.cells(1,application.match(MaxVal,sheet8.rows(j))) 

最初の行は、行の最大値を求めます。 2行目は列ヘッダーを返します（おそらく、行2から検索しているときに行1にあります）。