判断单元格内容保存到指定工作表中

来源：百度知道 编辑：UC知道 时间：2024/05/21 20:59:20
A工作薄sheet1工作表中B15单元格是数字几，该表的内容就保存到B工作薄的第几工作表中(B工作薄按数字排列有1-60个工作表)

比如B15内容为1，则该表的内容保存到B工作薄的1工作表中

要求用宏实现。
A工作薄只考虑sheet1一个工作表
A工作薄sheet1中的B15单元格是数字几，该表的内容就保存到B工作薄的第几工作表中(B工作薄按数字排列有1-60个工作表)
如B15里面是16，则A表的内容就保存到B工作薄的名为16的工作表中
如B15里面是7，则A表的内容就保存到B工作薄的名为7的工作表中

请问A 难道只有一页吗? 如果表A有不同的页，在哪？ A不同的页B15会不会标同一值?

如果A只有一页的话没必要宏，全选B列, 在B表中选择性粘贴，选转置就行了

Sub RSave()

Dim i As Integer
Dim j As Integer
Dim c As Long
Dim bname As String
bname = ActiveWorkbook.Name
i = ActiveSheet.[B15]
Workbooks.Open Filename:="D:\work\b.xls", notify:=False
Worksheets(CStr(i)).Select
Range(Cells(6, 1), Cells(6, 1)).Select
c = 6 + WorksheetFunction.CountA([A6:A65536])
For j = 1 To 18
Cells(c, j) = Workbooks(bname).Sheets(1).Cells(j, 2)
Next j
ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

----------------------------------------------------------------------------------
表B表A都有的项目，从表A添加到表B. AB都没有的项目不做添加. 宏如下:

Sub RSave()

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim r As Integer
Dim c As Long
Dim bname As String
bname = ActiveWorkbook.Name
i = ActiveSheet.[