Excel VBA，在选定的单元格上执行宏

Question

我的问题是，我只需要在标记的单元格上执行一个宏。

宏需要做到以下几点：

选择的小区例如为20 * 20 * 20总是3个数字总是格式化。

它应该复制此文本在数字前面添加一个“=”并将其输出到另一列。

守则我到现在为止是：

Sub First() 
' 
' First Makro 
' 

' 
    Selection.Copy 
    Range("G11").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    ActiveCell.FormulaR1C1 = "=20*20*20" 
    Range("G12").Select 
End Sub 

我有这个代码与记录微距功能

非常感谢

Answer 1

@SiddharthRout准确，但我必须能够手动选择它，因为有时例如E17有时是e33，输出总是需要是G列在同一行

这是你正在尝试的？

Sub Sample() 
    Dim wb As Workbook 
    Dim ws As Worksheet 

    Set wb = ThisWorkbook 
    '~~> Replace Sheet1 with the relevant sheet name 
    Set ws = wb.Sheets("Sheet1") 

    '~~> Check if what the user selected is a valid range 
    If TypeName(Selection) <> "Range" Then 
     MsgBox "Select a range first." 
     Exit Sub 
    End If 

    '~~> Check if the user has selected a single cell 
    If Selection.Cells.Count > 1 Then 
     MsgBox "Please select a single cell" 
     Exit Sub 
    End If 

    ws.Range("G" & Selection.Row).Formula = "=" & Selection.Value 
End Sub