提交成功是否继续回答问题？
手机回答更方便，互动更有趣，下载APP
展开全部数百张格式相同的工作表在一个文件里吗，如果在一个文件里面并且是连续的，那么就很简单了。先复制这一列姓名，选定位置第一个工作表，按住shift，在选择最后一个工作表，这样就选定了要编辑的所有工作表，在其中的一个工作表中粘贴这列姓名，这所有的工作表中都会粘贴这一列姓名。
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
下载百度知道APP，抢鲜体验使用百度知道APP，立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。扫描二维码下载
×个人、企业类侵权投诉
违法有害信息,请在下方选择后提交
类别色情低俗
涉嫌违法犯罪
时政信息不实
垃圾广告
低质灌水
我们会通过消息、邮箱等方式尽快将举报结果通知您。说明
做任务开宝箱累计完成0
个任务
10任务
50任务
100任务
200任务
任务列表加载中...
}

主要你没有上个图看一下，是所有奖金都在一个workbook,还是在不同的workbook,所以只能提供一个思路：循环工作表（或循环工作薄），使用字典 ，用人员做为关键字，奖金做item，将item做累加希望能对你有所帮助看了一下你的需要，写了一段代码，你看一下是不是符合你的要求代码如下：Sub test()Dim i, arr, sht, d, brrSet d = CreateObject("scripting.dictionary")ReDim brr(1 To 100, 1 To 10)n = 1For Each sht In Worksheets
If 星海涤月 <> "汇总" Then
n = n + 1
arr = sht.UsedRange
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
m = m + 1
d(arr(i, 1)) = m
brr(m, 1) = arr(i, 1)
brr(m, n) = arr(i, 2)
Else
brr(d(arr(i, 1)), n) = arr(i, 2)
End If
Next
End IfNextSheets("汇总").Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub希望可以帮到你，记得点赞收藏}

Sub MarkSameData()Dim i As LongDim j As LongDim LastRow As LongLastRow = Cells(Rows.Count, "A").End(xlUp).RowFor i = 2 To LastRowFor j = 2 To i - 1If Cells(i, 1).Value = Cells(j, 1).Value ThenCells(i, 1).Interior.ColorIndex = 6End IfNext jNext iEnd Sub}