求一段vba，在EXCEL里实现如下功能：

klwjg

<COLGROUP>

<COL style="WIDTH: 48pt" span=4 width=64>





From_cell

NBR1

NBR2

NBR3



1_1

1_2

1_3

5_1



1_2

1_1

1_3





1_3

1_2

5_2

29_1



10_1

4_3

10_2

10_3



10_2

6_1







10_3

10_2

10_1

66_1

经过转化变为如下模样：



<TABLE  cellSpacing=0 cellPadding=0 width=128 border=0 x:str>

<COLGROUP>

<COL style="WIDTH: 48pt" span=2 width=64>





From_cell

NBR



1_1

1_2



1_1

1_3



1_1

5_1



1_2

1_1



1_2

1_3



1_3

1_2



1_3

5_2



1_3

29_1



10_1

4_3



10_1

10_2



10_1

10_3

<TR  height=16>

10_2

<TD  x:str="'6_1"><FONT

老鬼

方法详见附件：

klwjg

CT = [F65536].End(xlUp).Row + 1

这句不知道是什么意识，尤其是[F65536]，我想在别的列

得到结果却不行了。

老鬼

F指的是F列，如果你想让结果返回到其他列，把所有F改成所在列就可以了。

老鬼

为了解决你修改原代码中显示位置的烦恼，改成了数据转换在任意选定的单元格，详见附件：

klwjg

谢谢！