如何选择组合框值行然后使用带有VBA Excel的命令按钮复制并粘贴到另一个工作表范围

1 回答

• 0

  将列更改为您需要的任何内容，

  Private Sub CommandButton1_Click()
      Dim ws As Worksheet
      Dim Drng As Range, c As Range
      Set ws = Sheets("Data")
  
      Set Drng = ws.Columns("A:A").SpecialCells(xlCellTypeConstants, 23)
      For Each c In Drng.Cells
          If c = ListBox1 Then
              Range(Cells(c.Row, "A"), Cells(c.Row, "D")).Copy Sheets("Summary").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
          End If
      Next c
      Unload Me
  End Sub
  

  回复于 2024-04-24T17:08:27+08:00