室内设计《曹松》15933869146:
程序代码:OptionExplicitSub数据提取()Dimr1AsRange,r2AsRange,a1,a2,i1,i2Setr1=Range("C1:L2")'原始数据区域Setr2=Range("B5:E6")'结果区域a1=r1a2=r2Fori2=1ToUBound(a2,2)Fori1=1ToUBound(a1,2)Ifa1(1,i1)=a2(1,i2)Thena2(2,i2)=a1(2,i1)ExitForEndIfNexti1Nexti2r2=a2EndSub程....