WORD表格如何组合字符串

witkeylaw · 发表于 2017-9-7 16:12

A列	B列	C列
A1	B1	A1-B1
A2	B2	A2-B2
A3	B3	A3-B3
A4	B4	A4-B4
……	……	……

问题：如何快速生成C列数据。因实际情况，不能使用EXCEL来处理。

单元格字符串公式.rar (9.69 KB, 下载次数: 5)

duquancai · 发表于 2017-9-7 16:34

遍历表格，遍历单元格

duquancai · 发表于 2017-9-7 21:19

Sub charL()
Dim tb As Table
Set tb = ActiveDocument.Tables(1)
For i = 2 To tb.Rows.Count
      s1 = Split(tb.Rows(i).Cells(1).Range, Chr(13) & Chr(7))(0)
      s2 = Split(tb.Rows(i).Cells(2).Range, Chr(13) & Chr(7))(0)
      tb.Rows(i).Cells(3).Range = s1 & "-" & s2
Next
End Sub

witkeylaw · 发表于 2017-9-7 22:33

duquancai 发表于 2017-9-7 21:19
Sub charL()
Dim tb As Table
Set tb = ActiveDocument.Tables(1)

A列（交叉引用，标题文字）	B列（交叉引用，页码）	C列（A列-B列）
A	1	A-1
b	6	b-6
c	17	c-17
e	24	e-24
f	29	f-29

问题：如何快速生成C列数据。因实际情况，不能使用EXCEL来处理。楼上代码测试OK。

新的需求：C列能链接，类似A/B列，如何处理。

单元格字符串公式2.rar (11.21 KB, 下载次数: 1)

duquancai · 发表于 2017-9-7 22:56

witkeylaw 发表于 2017-9-7 22:33
问题：如何快速生成C列数据。因实际情况，不能使用EXCEL来处理。楼上代码测试OK。新的需求：C列能链接， ...

第一，看不懂新需求，第二，没兴趣了！！！

		自动登录	找回密码
密码			免费注册

[求助] WORD表格如何组合字符串