如何用VBA函数作为Excel公式在Excel上复制单元格

Question

我想用Excel公式将Excel上具有属性(颜色、背景色、边框(的1个单元格复制到活动单元格中。所以，我可以写

=CopyCell(B2)

以及活性细胞用所有的心房肌复制B2。你能帮我吗？

我刚刚成功地使用按钮onClick将一个单元格复制到另一个单元格，并调用此过程

Public Function CopyOnlyFormatConditionColor(ByVal Source As String, ByVal Destination As String)
Worksheets("Sheet2").Range(Source).Copy Worksheets("Sheet1").Range(Destination)
End Function

感谢的任何帮助

Answer 1

我还没有解决这个问题；但这就是我目前所拥有的。堆栈溢出回答指南要求分享我的发现，以防对下一个人有所帮助。。。

Public Function CopyColor(Target As Range)

Dim iCol%, iCol2%
Dim iRow&, iRow2&
Dim sSheet$, sSheet2$
Dim WS As Worksheet, WS2 As Worksheet

Set WS = Target.Worksheet
sSheet = WS.Name
iRow = Target.Row
iCol = Target.Column

Set WS2 = Application.ActiveCell.Worksheet
sSheet2 = WS2.Name
iRow2 = Application.ActiveCell.Row
iCol2 = Application.ActiveCell.Column

WS.Cells(iRow, iCol).Copy
WS2.Cells(iRow2, iCol2).PasteSpecial (xlPasteValues)
WS2.Cells(iRow2, iCol2).PasteSpecial xlPasteFormats
Application.CutCopyMode = False

End Function