软件: Excel
版本: 2010
请问以下表为例 要如何把相同程式的机台带入左边程式（依续带入，下表：F07 可run机台 F07 , F01, F08 ; F10可run 机台 F03, F15 以此类推）（用vba 写…）
http://i.imgur.com/vc2BPeE.jpg

循环于b3:bn(最后有值储存格或列号可以range.end、range.find，列号range.row，或以工作表函数counta)，以搜寻h栏range.find，计数工作表函数countif，以搜寻到的储存格range.offset到i栏，或以搜寻到的储存格列号从i栏offset，range.resize就以计数的值来调整大小；最后range.copy，range.pastespecial transpose为真true。或range = worksheetfunction.transpose(range)的方式

soyoso大大，小弟不材 可否写成范例，谢谢

先动手写，有问题提出