(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'如何整合2个EXCEL表格呢？两个表格内容不一样，人员名字一样，但是人名所在行不一样，行内容也不一样。_百度知道
如何整合2个EXCEL表格呢？两个表格内容不一样，人员名字一样，但是人名所在行不一样，行内容也不一样。
上面只有100名员工的名字，所以也得体现出来？另外那40名没有下载下来的员工是因为没有操作网上没有记录要扣钱的？比如我做了一个主表格，下载的考核表各个分店不挨着？让一个表格的人员内容跟着主表格人名进行增加和变化，人员也总是变化的，不想每次都按照人名一行一行替换有办法吗，然后又收到一个表格里面有60名员工的工作情况，但是我这有个总员工人名表格。因为要考核员工的业绩，怎么把两个表格整合到一起啊怎么把两个表格合在一起
提问者采纳
具体要看你的表的格式。@qq，并说明要达到那些要求，如可以就把表发过来看看姓名没有相同的应该可以
提问者评价
来自团队：
其他类似问题
为您推荐：
excel表格的相关知识
其他3条回答
有时候还是需要用到编程语言进行辅助完成一些特殊功能Excel本身纵然功能很强大。这是一个建议。可以用宏Vb代码对数据进行重组
怎么把两个表格合在一起？比如我做了一个主表格，上面只有100名员工的名字，然后又收到一个表格里面有60名员工的工作情况，怎么把两个表格整合到一起啊？让一个表格的人员内容跟着主表格人名进行增加和变化。因为要考核员工的业绩，下载的考核表各个分店不挨着，人员也总是变化的，但是我这有个总员工人名表格，不想每次都按照人名一行一行替换有办法吗？另外那40名没有下载下来的员工是因为没有操作网上没有记录要扣钱的，所以也得体现出来。请办公高手指点吧
可以用vlookup函数
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您的举报已经提交成功，我们将尽快处理，谢谢！
插入一行。打完字后，把这一行的边框去掉。
看上去的效果就如同：“在一行表格中输入两行字后，要在两行字后的中间打一行字”
手绘,输入文字时方便,斜线太多,样:1.点击&表格&菜单,选择&绘制斜线表头&2.弹出对框选择表头样式3.输入表头内容,...
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'查看: 1432|回复: 11
将如图所示的表格，碰到一个人两个电话号码，要在没有姓名的一个电话号码的前面写上此
阅读权限20
在线时间 小时
要求：将如图所示的表格，碰到一个人两个电话号码，要在没有姓名的一个电话号码的前面写上此人的姓名，最后转换成右图的txt格式的文件
(67.93 KB, 下载次数: 0)
17:18 上传
17:19 上传
点击文件名下载附件
21.83 KB, 下载次数: 6
阅读权限95
在线时间 小时
Private Sub CommandButton1_Click()
& & For j = 2 To Cells(Rows.Count, 1).End(3).Row
& && &&&If Cells(j, 1) && && Then
& && && && &If Len(Cells(j, 1)) & 8 Then
& && && && && & Cells(a, &b&) = str1
& && && && && & Cells(a, &c&) = Cells(j, 1)
& && && && && & a = a + 1
& && && && &Else
& && && && && & str1 = Cells(j, 1)
& && && && &End If
& && &&&End If
& & Next j
结果存在b，c两列
阅读权限95
在线时间 小时
你看看是不是你需要的
17:29 上传
点击文件名下载附件
28.47 KB, 下载次数: 6
阅读权限20
在线时间 小时
liulang0808 发表于
你看看是不是你需要的
没有完成了，在你的基础上，最后一步还要输出为txt文本格式（如图）的要求，请测试。
阅读权限95
在线时间 小时
jjfsxz 发表于
没有完成了，在你的基础上，最后一步还要输出为txt文本格式（如图）的要求，请测试。
你还要直接输出文本啊？
我以为给存到表格里之后，直接拷贝到文本里呢
阅读权限95
在线时间 小时
& & & & & & & &
jjfsxz 发表于
没有完成了，在你的基础上，最后一步还要输出为txt文本格式（如图）的要求，请测试。
这里有一些文本操作的说明，你增加两段代码就可以了
阅读权限95
在线时间 小时
Sub test()
&&Dim r%, i%
&&Dim arr
&&Dim brr()
&&r = Cells(Rows.Count, 1).End(xlUp).Row
&&arr = Range(&a2:a& & r)
&&m = 0
&&For i = 1 To UBound(arr)
& & If Len(arr(i, 1)) && 0 Then
& && &If Not IsNumeric(arr(i, 1)) Then
& && &&&xm = arr(i, 1)
& && &Else
& && &&&m = m + 1
& && &&&ReDim Preserve brr(1 To 2, 1 To m)
& && &&&brr(1, m) = xm
& && &&&brr(2, m) = Trim(arr(i, 1))
& && &End If
& & End If
&&Next
&&brr = Application.Transpose(brr)
&&wjm = ThisWorkbook.Path & &\& & &2.txt&
&&Open wjm For Output As #1
&&For i = 1 To UBound(brr)
& & Print #1, brr(i, 1) & Chr(9) & brr(i, 2)
&&Next
&&Close #1
End Sub复制代码
阅读权限95
在线时间 小时
参见附件。
09:34 上传
点击文件名下载附件
28.09 KB, 下载次数: 3
阅读权限50
在线时间 小时
fgfgasfgfdsfdafdsf
11:19 上传
点击文件名下载附件
26.75 KB, 下载次数: 3
阅读权限100
在线时间 小时
数据不多，可以操作完成
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}