复制，查找原表数据填入母表中的指定单元格

6545976

各位大神，请帮忙，本人小白一名，刚学写代码，但知识有限，未能完成达到目的，请求大神们帮忙，谢谢！
要求：我要根据工作薄中【附件2】现场实际收方资料来汇总到【生成数据】表中来，【生成数据】表每28行为一页对应收集【附件2】每65行为一页，
        1、首先要根据【附件2】表有多少个65行，【生成数据】表先复制多少个1-28行的表格样式在本工作表内，要求复制的单元格与1-28行的表格样式一样，大小，格式等；【我怎么复制都只能复制成值 ，单元格大小格式没能正确复制，求大神们帮忙，谢谢】
        2、再根据【附件2】表中对应每页的，F20-N59单元格中的数据，只要K列的值不为0的行 ，将对应的F,G,K列单元格的值复制到【生成数据】表中对应每页的B,C,D列对应的行的单元格中。循环完成所有页的内容。

        

FishC

VBA实现跨表数据复制的解决方案：

以下是实现需求的代码模板（请根据实际情况调整工作表名称）：

1. 
   
2. Sub 数据汇总()
   
3.     Dim wsSource As Worksheet, wsTarget As Worksheet
   
4.     Dim totalPages As Long, page As Long
   
5.     Dim i As Long, targetRow As Long
   
6.    
   
7.     Set wsSource = ThisWorkbook.Sheets("附件2")
   
8.     Set wsTarget = ThisWorkbook.Sheets("生成数据")
   
9.    
   
10.     Application.ScreenUpdating = False
    
11.    
    
12.     ' 步骤1：创建表格模板
    
13.     totalPages = Application.Ceiling(wsSource.UsedRange.Rows.Count / 65)
    
14.     For page = 2 To totalPages
    
15.         ' 复制模板行（含格式）
    
16.         wsTarget.Rows("1:28").Copy
    
17.         wsTarget.Rows((page - 1) * 28 + 1).Insert Shift:=xlDown
    
18.     Next page
    
19.    
    
20.     ' 步骤2：填充数据
    
21.     For page = 1 To totalPages
    
22.         ' 源数据区域
    
23.         Dim srcStart As Long: srcStart = (page - 1) * 65 + 20
    
24.         ' 目标区域
    
25.         Dim targetStart As Long: targetStart = (page - 1) * 28 + 5
    
26.         
    
27.         For i = 0 To 39  ' 处理F20-N59共40行
    
28.             If wsSource.Cells(srcStart + i, 11) <> 0 Then ' 检查K列
    
29.                 targetRow = targetStart + (i \ 4) ' 每4行数据占用1行位置
    
30.                
    
31.                 ' 复制数据
    
32.                 wsTarget.Cells(targetRow, 2) = wsSource.Cells(srcStart + i, 6)  ' F列
    
33.                 wsTarget.Cells(targetRow, 3) = wsSource.Cells(srcStart + i, 7)  ' G列
    
34.                 wsTarget.Cells(targetRow, 4) = wsSource.Cells(srcStart + i, 11) ' K列
    
35.             End If
    
36.         Next i
    
37.     Next page
    
38.    
    
39.     Application.CutCopyMode = False
    
40.     Application.ScreenUpdating = True
    
41.     MsgBox "处理完成！"
    
42. End Sub
    

复制代码

关键要点说明：

• 复制格式问题：使用 .Copy + .Insert 方法可保留原格式
• 行号计算逻辑：
    
  
    
  • 源数据页：每65行一页，起始行号计算为 (page - 1) * 65 + 20
      
  • 目标页：每28行一页，数据起始行为第5行
      
• 数据填充规则：每4行源数据对应1行目标数据（根据常见收方表格布局设计）
  

注意事项：

• 请先备份文件！
• 根据实际表格结构调整以下参数：
    srcStart（源数据起始行）
    targetStart（目标数据起始行）
    i = 0 To 39（处理行数）
  

如果遇到具体错误，可以贴出错误提示和涉及的行号，我们可以进一步排查。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。

不二如是

填入指定，如果是一次性的不如自己完成

6545976

FishC 发表于 2025-4-7 14:21
VBA实现跨表数据复制的解决方案：

以下是实现需求的代码模板（请根据实际情况调整工作表名称）：

谢谢大神，我要的是python代码，谢谢

6545976

import openpyxl

# 加载工作簿和工作表
wb = openpyxl.load_workbook(r'AAA.xlsx')
ws = wb['生成数据']
param_ws = wb['参数']

# 获取循环次数
loop_count = param_ws['B2'].value

# 复制数据
for i in range(1, loop_count + 1):
    for row in ws.iter_rows(min_row=1, max_row=28):
        new_row = [cell.value for cell in row]
        ws.append(new_row)

# 保存工作簿
wb.save('AAA2.xlsx')
以上代码只能对表的值进行复制，不能对表格的格式，比如有合并单元格的，有字体大小不同的，都没能进行复制，请大神帮忙指导，谢谢了。