如何读取hex数字并在Excelmacros中迭代？

我有一个Excel工作表，并在列J，我有一个开始号码，并在列KI有一个结束号码…我想写一个macros将读取hex的开始号码，并打印所有的数字，包括之间的数字从列L开始。

这是我的：

 ..........Ĵ...，K .....大号...，M .... N..O
 ......... 1A 1C ...
 ......... 2B ...... 2B

我想要：

 ..........Ĵ...，K .....大号....中号.... N..O
 ......... 1A ... 1C .... 1A ... 1B..1C
 ......... 2B ...... 2B .... 2B

Answer 1

Option Explicit Sub FillHexNumbers() Dim cellJValue As Long Dim cellKValue As Long Dim diffBetweenJAndK As Long Dim iCtr As Long cellJValue = CLng(Format("&h" & Cells(1, 10).Text, "###")) cellKValue = CLng(Format("&h" & Cells(1, 11).Text, "###")) diffBetweenJAndK = cellKValue - cellJValue For iCtr = 0 To diffBetweenJAndK Cells(1, 12 + iCtr).Value = Hex(cellJValue + iCtr) Next End Sub 

此代码将填充仅用于第1行的单元格。
请修改以引入for循环来包含其他行。