Sub test() Set sheetobj = ThisWorkbook.Worksheets("sheet1") Dim kijun Dim max Dim tmp Dim i With sheetobj kijun = .Cells(1, 1) For i = 2 To 29 max = .Cells(i, 1) If kijun < max Then kijun = max End If Next i .Cells(1, 2) = max End With End…

Sub test() Set sheetobj = ThisWorkbook.Worksheets("sheet1") Dim eigo Dim kokugo Dim sum Dim i eigo = sheetobj.Cells(1, 1) kokugo = sheetobj.Cells(1, 2) sum = eigo sheetobj.Cells(1, 1) = kokugo sheetobj.Cells(1, 2) = sum End Sub