Question

我对VBA很新，并尝试做一些我觉得很基本的事情，但我一直陷入命令之中。

我有一张工作表“RA REQUEST FORM”，我将其用作表格。在单击命令按钮时，我希望将某些单元格（A22，D11，C18，C19）分别复制到另一个工作表“ACTIVE CREDITS”（COLUMNS A，B，EG）上的下一个空行的单元格中。。有人可以帮忙吗？

Answer 1

也许是这样的：

Sub ButtonCode()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim DestRow As Long
    Set ws1 = Sheets("RA REQUEST FORM")
    Set ws2 = Sheets("ACTIVE CREDITS")
    DestRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    ws1.Range("A22").Copy ws2.Range("A" & DestRow)
    ws1.Range("D11").Copy ws2.Range("B" & DestRow)
    ws1.Range("C18").Copy ws2.Range("E" & DestRow)
    ws1.Range("C19").Copy ws2.Range("G" & DestRow)
End Sub

Answer 2

丑陋但它有效。

Sub Macro1()
'
' Macro1 Macro
'

'
Dim a22 As String
Dim d11 As String
Dim c18 As String
Dim c19 As String

Worksheets("RA REQUEST FORM").Activate

    a22 = Range("A22").Value
    d11 = Range("D11").Value
    c18 = Range("C18").Value
    c19 = Range("c19").Value


    Worksheets("ACTIVE CREDITS").Activate
    'select the first row with not value in column A skipping the first row e.g. - Offset(1)
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select

    ActiveCell.Offset(0, 0).Value = a22
    ActiveCell.Offset(0, 1).Value = d11
    ActiveCell.Offset(0, 4).Value = c18
    ActiveCell.Offset(0, 6).Value = c19


End Sub

Answer 3

这是我在文本格式化问题搞乱了“活跃信用”工作表的外观后想出的。你觉得怎么样？

Sub SENDTOLOG_Click()

Application.ScreenUpdating = False

Dim copysheet As Worksheet
Dim pastesheet As Worksheet

Set copysheet = Worksheets("RA REQUEST FORM")
Set pastesheet = Worksheets("ACTIVE CREDITS")

'Copy data from the RA REQUEST FORM to the active credits worksheet

'copy date
copysheet.Range("A22").Copy
pastesheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

'copy company name
copysheet.Range("D11").Copy
pastesheet.Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).PasteSpecial xlPasteValues

'copy credit amount
copysheet.Range("C19").Copy
pastesheet.Cells(Rows.Count, 1).End(xlUp).Offset(0, 4).PasteSpecial xlPasteValues

'copy invoice number
copysheet.Range("C18").Copy
pastesheet.Cells(Rows.Count, 1).End(xlUp).Offset(0, 6).PasteSpecial xlPasteValues

'insert basic status description into STATUS cell
pastesheet.Cells(Rows.Count, 1).End(xlUp).Offset(0, 3).Value = "WAITING FOR CREDIT CONFIRMATION"

'select payment method cell
pastsheet.Cells(Rows.Count, 1).End(xlUp).Offset(0, 2).Select


Application.CutCopyMode = False
Application.ScreenUpdating = True

Sheets("ACTIVE CREDITS").Activate

End Sub

将某些单元格复制到另一个工作表中的下一个空白行

3 个答案: