我已经在表格中创建了一个数据输入表单,并希望输入的信息被提取并放置在一张单独的表格中。(Excel)数据输入表格将数据输入到表格
下面的图片会让你更好地了解我正在努力实现的目标。
我明白,我将需要一个宏,以实现这一目标链接到一个按钮。
我试着谷歌的解决方案,并遇到这个代码,显然需要的数据并将其输入到表中。这是代码;
Sub copyRow()
Dim ws As Worksheet
Dim lRow As Long
' define which worksheet to work on, i.e. replace Sheet1 with the name of your sheet
Set ws = ActiveWorkbook.Sheets("Data Entry")
' determine the last row with content in column A and add one
lRow = ws.Cells(Rows.Count, "A").End(xlUp).Row + 1
' combine G7 and G8 and copy into column A, next empty row
ws.Range("A" & lRow) = ws.[G7] & " " & ws.[G8]
' copy the other cells into their ranges
ws.Range("C6:F6").Copy ws.Range("B" & lRow)
ws.Range("C7:F7").Copy ws.Range("F" & lRow)
ws.Range("C8:F8").Copy ws.Range("J" & lRow)
ws.Range("C9:F9").Copy ws.Range("N" & lRow)
ws.Range("C10:F10").Copy ws.Range("R" & lRow)
ws.Range("C11:F11").Copy ws.Range("V" & lRow)
ws.Range("C12:F12").Copy ws.Range("Z" & lRow)
ws.Range("G6").Copy ws.Range("AD" & lRow)
ws.[A1].Select
End Sub
你尝试过什么码? – braX
只需编辑您的帖子并添加代码即可。 – braX
您需要将代码调整为电子表格。它目前的基础是你的数据条目表上的行数,而不是测试日志表...... –