基于同一行数据的 VBA 列选择范围

Question

在 VBA 中，如何根据同一行另一列中的单元格中的值识别粘贴范围中的列起始位置？

Answer 1

Sorry i didnt really understand what you want to do, My macro will paste your copied cells when it find value in RngB, to use the macro you will need to copy something and then execute the macro.

Sub AKsooner()
Dim RngA As Range, RngB As Range
Dim Cel As Range
' You can change RngA and RngB to the columns you like
Set RngA = ActiveSheet.Columns("A")
Set RngB = ActiveSheet.Columns("B")

' also this if condition is for copy only u can add "or xlcut" to it too
If Application.CutCopyMode = xlCopy Then
   For Each Cel In RngB.Cells
       If Not Cel.Value = 0 Then
          Cells(Cel.Row, RngA.Column).PasteSpecial xlPasteAll
          Exit For
       End If
   Next Cel
End If

End Sub