Question

我在单元格A1中有一个"=C1+$D$1"的公式。我想用xlwings将这个公式复制粘贴到A3中（保持相对的单元格引用）。我希望单元格A3中的粘贴公式为"=C3+$D$1"而不是"=C1+$D$1"。

是否有标志或功能会根据我们粘贴的范围调整公式？如果没有，我想最好的解决方案是在粘贴前处理公式本身？

rng_to_paste = ws.range('A1').options(ndim=1).formula
ws.range('A3').options(ndim=1).formula = rng_to_paste

Answer 1

我的解决方法是调用Excel宏来为我复制粘贴。我在尝试将Worksheet和Range对象传递给宏时遇到错误，因此下面的代码只使用了字符串标识符。

的Python

def copypaste_range(wb_string,
                ws_source_string, 
                rng_to_copy_string, 
                ws_destination_string, 
                rng_to_paste_string):
import xlwings as xw
xw.App.display_alerts = False
folder = r'D:\My Documents'
xls_path = folder + r'\xlwings_macros.xlsb'
wb_macros = xw.Book(xls_path)
wb_macro = wb_macros.macro('copypaste_range')
wb_macro(wb_string,
         ws_source_string, 
         rng_to_copy_string, 
         ws_destination_string, 
         rng_to_paste_string)
xw.App.display_alerts = True
wb_macros.close()

VBA

Public Sub copypaste_range(wb_string, _
                       ws_source_string, rng_to_copy_string, _
                       ws_destination_string, rng_to_paste_string)

Dim wb As Workbook
Dim fso As New FileSystemObject
If Not IsWorkBookOpen(wb_string) Then
    Set wb = Workbooks.Open(fileName:=wb_string)
Else
    wb_string = fso.GetFileName(wb_string)
    Set wb = Workbooks(wb_string)
End If

Dim rng_to_copy As Range
Dim rng_to_paste As Range
Set rng_to_copy = wb.Sheets(ws_source_string).Range(rng_to_copy_string)
Set rng_to_paste = wb.Sheets(ws_destination_string).Range(rng_to_paste_string)

rng_to_copy.Copy _
    Destination:=rng_to_paste

End Sub

Answer 2

您可以指定范围的公式属性，该范围将使用调整后的公式更新范围中隐式指定的单元格。但是，使用此方法xlwings不知道您从哪里复制公式，因此它只能相对于指定的公式递增行/列。

xw.sheets[0].range('A1:A5').value = [[i] for i in range(5)]
xw.sheets[0].range('B1:C5').formula = [['=A1+1','=B1*10']]

xw.sheets[0].range('A1:C5').value
Out[3]: 
[[0.0, 1.0, 10.0],
 [1.0, 2.0, 20.0],
 [2.0, 3.0, 30.0],
 [3.0, 4.0, 40.0],
 [4.0, 5.0, 50.0]]

Answer 3

基于KrisG的答案，这对我有用：

formula = xw.sheets[0].range("A1").formula
xw.sheets[0].range("A1,A3").formula = formula

结果：

     A
1    =C1+$D$1
2
3    =C3+$D$1

基本上，它会用相同的公式覆盖A1，但这给了它一个参考点，因此它知道如何修改A3的公式。

具有相对单元格引用的Python xlwings复制粘贴公式

3 个答案: