求一条简单的vba命令

来源：百度知道 编辑：UC知道 时间：2024/06/30 19:18:56
假定表名为123的工作表，A1为1-12的任意数字，B1为一个函数。当A1为4时，将B1的值粘贴到C4，如A1=5，则粘贴到C5，依次类推。
请问，vba命令该如何写（一定要体现出工作表名称），谢谢！
能写出完整的宏代码吗？便于我粘贴使用。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Byte
If Cells(1, 1) <> "" Then
i = Sheets("123").Range("A1").Value
If i > 0 And i <= 12 Then
Sheets("123").Range("C" & i).Value = Sheets("123").Range("B1").Value
If i = 1 Then
Sheets("123").Range("C2:C65536").Clear
Else
Sheets("123").Range("C1:C" & i - 1).Clear
Sheets("123").Range("C" & i + 1 & ":C65536").Clear
End If
End If
If i > 12 Then
Sheets("123").Range("C1:C65536").Clear
End If
End If

End Sub

Sheets("123").Cells(3, Sheets("123").[a1]).Formula = Sheets("123").[b1].Formula

值粘贴:
cells(3,range("A1").value).value = range("B1").value
单元公式粘贴：
用zipall的方法