Office中国论坛/Access中国论坛

标题: 求一段vba，在EXCEL里实现如下功能： [打印本页]

作者: klwjg 时间: 2004-12-14 04:52
标题: 求一段vba，在EXCEL里实现如下功能：

<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

作者: 老鬼 时间: 2004-12-14 07:08
方法详见附件：[attach]8122[/attach]

作者: klwjg 时间: 2004-12-15 06:27
CT = [F65536].End(xlUp).Row + 1

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

得到结果却不行了。

作者: 老鬼 时间: 2004-12-15 06:49
F指的是F列，如果你想让结果返回到其他列，把所有F改成所在列就可以了。

作者: 老鬼 时间: 2004-12-15 07:08
为了解决你修改原代码中显示位置的烦恼，改成了数据转换在任意选定的单元格，详见附件：[attach]8140[/attach]

作者: klwjg 时间: 2004-12-16 04:19
谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)