UC知道excel vba 数据移动和自动保存
来源：百度知道 编辑：UC知道 时间：2024/07/05 07:08:33
Sub cop()
For r = 3 To 42
Sheet2.Range("D7").Value = "总用地 " & Sheet1.Cells(r, 6).Value & "㎡"
Sheet2.Range("E9").Value = Sheet1.Cells(r, 9).Value & "元"
Sheet2.Range("E10").Value = Sheet1.Cells(r, 10).Value & "元"
Sheet2.Range("B11").Value = "2次" & Sheet1.Cells(r, 11).Value & "元"
Sheet2.Range("B12").Value = "12月" & Sheet1.Cells(r, 12).Value & "元"
Sheet2.Range("E12").Value = Sheet1.Cells(r, 15).Value & "元"
Sheet2.Range("B13").Value = Sheet1.Cells(r, 14).Value & "元"
Sheet2.Range("E15").Value = Sheet1.Cells(r, 16).Value
ThisWorkbook.SaveAs Cells(r, 2).Value & ".xls"
Next
End Sub
这个代码是在同一个表格中互相移动的，要求将代码改成不同两个表格之间移动数据，比如 总汇表中的数据，移动到调查表中，并将调查表以调查表中B2的数据为文件名进行自动保存。
For r = 3 To 42
Sheet2.Range("D7").Value = "总用地 " & Sheet1.Cells(r, 6).Value & "㎡"
Sheet2.Range("E9").Value = Sheet1.Cells(r, 9).Value & "元"
Sheet2.Range("E10").Value = Sheet1.Cells(r, 10).Value & "元"
Sheet2.Range("B11").Value = "2次" & Sheet1.Cells(r, 11).Value & "元"
Sheet2.Range("B12").Value = "12月" & Sheet1.Cells(r, 12).Value & "元"
Sheet2.Range("E12").Value = Sheet1.Cells(r, 15).Value & "元"
Sheet2.Range("B13").Value = Sheet1.Cells(r, 14).Value & "元"
Sheet2.Range("E15").Value = Sheet1.Cells(r, 16).Value
ThisWorkbook.SaveAs Cells(r, 2).Value & ".xls"
Next
End Sub
这个代码是在同一个表格中互相移动的，要求将代码改成不同两个表格之间移动数据，比如 总汇表中的数据，移动到调查表中，并将调查表以调查表中B2的数据为文件名进行自动保存。
试试，在你的sheet1和sheet2改成workbooks("文件名").sheets("表名").range("D7").value=......
比如：
Workbooks("1").Sheets("sheet1").Range("a1").Value = Workbooks("2").Sheets("sheet2").Range("a1").Value
关于自动保存：
dim t as string
t = Range("a1").Value
ThisWorkbook.SaveAs (t)