回答編集履歴
1
コード修正
test
CHANGED
@@ -31,7 +31,7 @@
|
|
31
31
|
Set ws = wb.Worksheets(1) '開いたブックのワークシート
|
32
32
|
|
33
33
|
ItemCol = ws.Rows(1).Find("Di_DegC").Column
|
34
|
-
LastRow = ws.Columns(
|
34
|
+
LastRow = ws.Columns(ItemCol).End(xlDown).Row
|
35
35
|
|
36
36
|
AVGC = WorksheetFunction.Average(ws.Range(ws.Cells(ItemCol, 2), ws.Cells(ItemCol, Lastlow)))
|
37
37
|
|