VBA記事3.最終行の取得のコード

 

最終行の取得

		売上金額	単価	売り上げ個数
商品	1	1100	110
商品	2	100	100
商品	3	300	150
商品	4	400	200
商品	5	900	150
商品	6	1050	150
商品	7	2000	20
商品	8	500	250
商品	9	1100	110
商品	10	100	100
商品	11	300	150
商品	12	400	200
商品	13	900	150
商品	14	1050	150
商品	15	2000	20
商品	16	500	250
商品	17	1100	110
商品	18	100	100
商品	19	300	150
商品	20	400	200
商品	21	900	150
商品	22	1050	150
商品	23	2000	20
商品	24	500	250
商品	25	1100	110
商品	26	100	100
商品	27	300	150
商品	28	400	200
商品	29	900	150
商品	30	1050	150
商品	31	2000	20
商品	32	500	250
商品	33	1100	110
商品	34	100	100
商品	35	300	150
商品	36	400	200
商品	37	900	150
商品	38	1050	150
商品	39	2000	20
商品	40	500	250
商品	41	1100	110
商品	42	100	100
商品	43	300	150
商品	44	400	200
商品	45	900	150
商品	46	1050	150
商品	47	2000	20
商品	48	500	250
商品	49	1100	110
商品	50	100	100
商品	51	300	150
商品	52	400	200
商品	53	900	150
商品	54	1050	150
商品	55	2000	20
商品	56	500	250
商品	57	1100	110
商品	58	100	100
商品	59	300	150
商品	60	400	200
商品	61	900	150
商品	62	1050	150
商品	63	2000	20
商品	64	500	250
商品	65	1100	110
商品	66	100	100
商品	67	300	150
商品	68	400	200
商品	69	900	150
商品	70	1050	150
商品	71	2000	20
商品	72	500	250
商品	73	1100	110
商品	74	100	100
商品	75	300	150
商品	76	400	200
商品	77	900	150
商品	78	1050	150
商品	79	2000	20

今回はFor 2 to 80のコードでなく最終行を自動的に取得してくれるコードで最終行を取得し、割り算を行う設定にしたいと思います。

　これにより行数が80以外の数字に変化しても勝手に行数に合わせた数字を取得します。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Sub sample2()

Dim i As Long

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

Cells(i, 5) = Cells(i, 3) / Cells(i, 4)

Next

End Sub

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Cells(Rows.Count, 1).End(xlUp).Rowが最終行を取得するコードになります。

これは1行目の最終行を取得し、1の部分を2に変えることで2行目の最終行を取得することになります。

Longのところはvariantでも大丈夫です。