Question

VBA 快速列出两个数值之间的所有数值

如图所示 求代码

Answer 1

sub mm()
dim i%, j%,c%
for i =2 to range("a65536").end(xlup).row
c=5
for j =cells(i,1) to cells(i,2)
cells(i,c)=j
c=c+1
next j
next i
end sub
或E2输入公式=IF((COLUMN(A1)-1+$A2>$B2)+($A2=""),"",COLUMN(A1)-1+$A2)
右拉100列，下拉

Answer 2

Dim findvalue As Range Dim r As Long Dim str str = '你想找的数值' Set findvalue = sheet1.Rows(2).Find(what:=str) '这句是