[已解决]如何实现不同报表内的批注问题·紧急求助高手啊·····

hwc2ycy · 发表于 2012-10-14 09:55

本帖最后由 hwc2ycy 于 2012-10-14 09:57 编辑

Sub 批量合并添加批注()
Dim sSwbk$, sDwbk$
Dim sSsht$, sDsht$
Dim arr, irow&, arrRst
'Dim dic As Object
Dim i&, j&
sSwbk = "B.xls"
sDwbk = "A.xls"
sSsht = "Sheet1"
sDsht = "Sheet1"
Application.ScreenUpdating = False
Workbooks(sSwbk).Activate
Worksheets(sSsht).Select
irow = [b1].End(xlDown).Row
arr = Range("c1:g" & irow).Value
ReDim arrRst(1 To UBound(arr)) As String
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
If arr(i, j) <> "" Then arrRst(i) = arrRst(i) & arr(i, j) & Chr(10)
Next
Next
Stop
With Workbooks(sDwbk).Worksheets(sDsht)
irow = [b1].End(xlDown).Row
For i = 1 To irow
.Cells(i, 2).AddComment Text:=arrRst(i)
Next
End With
End Sub

复制代码

hwc2ycy · 发表于 2012-10-14 09:56

前提要求是两个工作簿是同时打开，另外要求两个工作表的B列内容两边的顺序和数量是一样的。即站点名是相同的，否则就有可能备注和站点对不上号。

linlianboy · 发表于 2012-10-14 13:17

hwc2ycy 发表于 2012-10-14 09:56
前提要求是两个工作簿是同时打开，另外要求两个工作表的B列内容两边的顺序和数量是一样的。即站点名是相同的 ...

老大，如果我批注的数量要求大批量的，有办法吗？

linlianboy · 发表于 2012-10-14 13:48

本帖最后由 linlianboy 于 2012-10-14 13:54 编辑

hwc2ycy 发表于 2012-10-14 09:56
前提要求是两个工作簿是同时打开，另外要求两个工作表的B列内容两边的顺序和数量是一样的。即站点名是相同的 ...

看来我这样会搞乱您的思路，我还是老老实实把报表发出来说明给您看，才有可能解决：

需求：将切裂每个机种不良数那一行批注上不良明细(不良明细的数据是从B报表里面C:G列抓取的)
A报表的A列是对应的机种名称，B报表也有对应的机种名称.当B报表的切裂制程 TOP前五项不良(C:G)里面有项目就要将其内容以批注方式抓取到到A报表的C列不良数一行，并且机种要对应。

A报表的需求.jpg

--------------------------------------------------------------------

A.rar (152.69 KB, 下载次数: 4)

hwc2ycy · 发表于 2012-10-14 14:22

感觉像被你下套了，一步一步的挖深挖深，你第二次传附件我就感觉应该会有要来匹配的。

linlianboy · 发表于 2012-10-14 17:47

hwc2ycy 发表于 2012-10-14 14:22
感觉像被你下套了，一步一步的挖深挖深，你第二次传附件我就感觉应该会有要来匹配的。

嘿嘿，不好意思啊，我最早的想法是能不能借助您的代码稍微改下就可以用到我这里，结果发现根本就没办法改啊。所以还请您最后帮助我一下。

不信这样还重名 · 发表于 2012-10-16 19:51

我终于知道班主的水都灌到哪里去了，向班主学习

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