可能我的需求比较奇怪，找了很多文档，才总结书写了这段代码。
目的是自动填写数据源到3-4个excel模板表格里去，模板表格有表头，有表尾巴（签字栏），且有合并单元格，还有公式。
所以代码的核心是要保留我模板里原有的格式和内容，进行表单对表单的精准填写，数据源行数不确定，所以在模板excel设计时保留了足够多的行数，方便后期用代码把空白行删除。
——————末尾更新加入了把一个多班级无格式表单分别填入多个汇总表的代码，即一对多填写
所幸数据量不大，用win32com也挺快的。
模板如下：（比如我学生可能是3-8人，那我在模板里就留够八行，多的后面删除，保证不会影响蓝色的模板内容）
生成内容如下：（设置的单元格内公式依然保留，且灵活的单元格设置使得它不管数据多少行都是正确的哟）
代码及解释如下：
from win32com import client
xlApp_1 = client.Dispatch("Excel.Application")
xlApp_1.Visible = False  # 软件不可见 True为可见

xlBook_1 = xlApp_1.Workbooks.Open(r"C:UsersXXXDesktopqqqdata.xlsx")
## xlSheet_1 = xlBook_1.Worksheets(1)  # 打开第1个表
data = xlBook_1.Worksheets("sheet1")  # 打开名为“sheet1”的sheet作为数据源
info_1 = data.UsedRange
nrows_1 = info_1.Rows.Count  # 行数
ncols_1 = info_1.Columns.Count 
print(nrows_1,ncols_1)

form_book = xlApp_1.Workbooks.Open(r"C:UsersXXXDesktopqqq模板.xlsx")
form = form_book.Worksheets("sheet1")

下面的一列对一列的填写，可以套条件，也可以更改列序号，即模板第2列=数据源的第10列
j=1
for i in range(nrows_1):
    form.Cells(i+4, 2).Value= j    ##自增长的一个序号
    form.Cells(i+4, 1).Value=data.Cells(i+2,1).Value  
    form.Cells(i+4, 3).Value= data.Cells(i+2,2).Value
    form.Cells(i+4, 4).Value= data.Cells(i+2,3).Value
    form.Cells(i+4, 5).Value= data.Cells(i+2,4).Value
    j+=1
    
print(nrows_1+2)
## 删除空白行，12为表尾所在行数-1，nrows_1+2为数据源行数加上表头行数）
for i in range(12,nrows_1+2,-1):  
#  此处为左闭右开的倒序遍历，从上面正序删除会因为你删除了上面行导致错误
    form.Rows(i).Delete() 

# 另存为
form_book.SaveAs(r"C:UsersXXXDesktopqqq成绩汇总表.xlsx")  # 另存路径
丰富实用场景，一对多填写：
form_book3 = xlApp_1.Workbooks.Open(r"C:UsersxxxDesktop硬件模板.xlsx")
form3 = form_book3.Worksheets("Sheet1")
form_book4 = xlApp_1.Workbooks.Open(r"C:UsersxxxDesktop软件模板.xlsx")
form4 = form_book4.Worksheets("Sheet1")

j1=1
j2=1
for i in range(nrows_1-1):
    if xlSheet_1.Cells(i+2,17).Value=="硬件":  
## 此处为判断条件，xlSheet_1是我的数据源，注意逻辑判断需要双等号
        form3.Cells(j1+1, 3).Value= xlSheet_1.Cells(i+2,2).Value+"，"+xlSheet_1.Cells(i+2,3).Value
## 上面公式右边是对两个单元格用逗号进行了串联
        form3.Cells(j1+1, 5).Value= xlSheet_1.Cells(i+2,4).Value
        form3.Cells(j1+1, 6).Value= xlSheet_1.Cells(i+2,13).Value
        form3.Cells(j1+1, 7).Value= xlSheet_1.Cells(i+2,7).Value
        form3.Cells(j1+1, 1).Value= j1  ## 自增长序号
        j1=j1+1
    else:    
##可以多加几个if，此处主要说填写，故不写复杂了。
        form4.Cells(j2+1,3).Value= str(xlSheet_1.Cells(i+2,2).Value)+"，"+str(xlSheet_1.Cells(i+2,3).Value)
        form4.Cells(j2+1, 5).Value= xlSheet_1.Cells(i+2,4).Value
        form4.Cells(j2+1, 6).Value= xlSheet_1.Cells(i+2,13).Value
        form4.Cells(j2+1, 7).Value= xlSheet_1.Cells(i+2,7).Value
        form4.Cells(j2+1, 1).Value= j2    ## 自增长序号
        j2=j2+1

# 另存为
form_book3.SaveAs(r"C:Usersxxx硬件.xlsx")  
form_book4.SaveAs(r"C:Usersxxx软件.xlsx")  
以上就是办公自动化的学习分享第二篇。下一步计划学习Python控制浏览器操作的selenium，用它录入数据。
第一篇word操作链接在此 
第一小乔乔：python办公自动化（一）批量生成word​zhuanlan.zhihu.com