Excel VBA 将数据传输到行和列答案

【问题标题】：Excel VBA transfer data to rows AND ColumnsExcel VBA 将数据传输到行和列
【发布时间】：2017-06-19 19:23:13
【问题描述】：

所以，我对 excel VBA 有疑问。我有一个输入表和报告表。在数据表中，我有表格，其中包含名称、日期和计数。我需要把它转移到另一张纸上。但是我需要名称，每个名称都在新行中，以及相同的数据，这些数据在列中所有名称的输入表中输入。我已经为一排做好了一切，但我卡在那里。到目前为止的代码：

Sub Ievades_poga()

Dim NewRow As Integer

NewRow = Worksheets("Ievade").Range("D7").Value + 1

If Worksheets("Ievade").Range("C7").Value <> 0 Then

MsgBox "Kļūda!", vbOKOnly, "123"

Exit Sub
End If

Worksheets("Lentzāģis").Cells(NewRow, 1).Value = Worksheets("Ievade").Range("B3").Value
Worksheets("Lentzāģis").Cells(NewRow, 2).Value = Worksheets("Ievade").Range("B4").Value
Worksheets("Lentzāģis").Cells(NewRow, 3).Value = Worksheets("Ievade").Range("B5").Value
Worksheets("Lentzāģis").Cells(NewRow, 4).Value = Worksheets("Ievade").Range("B6").Value
Worksheets("Lentzāģis").Cells(NewRow, 5).Value = Worksheets("Ievade").Range("B7").Value
Worksheets("Lentzāģis").Cells(NewRow, 6).Value = Worksheets("Ievade").Range("B8").Value
Worksheets("Lentzāģis").Cells(NewRow, 8).Value = Worksheets("Ievade").Range("B9").Value
Worksheets("Lentzāģis").Cells(NewRow, 9).Value = Worksheets("Ievade").Range("B10").Value
Worksheets("Lentzāģis").Cells(NewRow, 10).Value = Worksheets("Ievade").Range("B11").Value
Worksheets("Lentzāģis").Cells(NewRow, 11).Value = Worksheets("Ievade").Range("B12").Value
Worksheets("Lentzāģis").Cells(NewRow, 12).Value = Worksheets("Ievade").Range("B13").Value
Worksheets("Lentzāģis").Cells(NewRow, 13).Value = Worksheets("Ievade").Range("B14").Value
Worksheets("Lentzāģis").Cells(NewRow, 14).Value = Worksheets("Ievade").Range("B15").Value
Worksheets("Lentzāģis").Cells(NewRow, 15).Value = Worksheets("Ievade").Range("B16").Value
Worksheets("Lentzāģis").Cells(NewRow, 16).Value = Worksheets("Ievade").Range("B17").Value
Worksheets("Lentzāģis").Cells(NewRow, 17).Value = Worksheets("Ievade").Range("B18").Value
Worksheets("Lentzāģis").Cells(NewRow, 18).Value = Worksheets("Ievade").Range("B19").Value
Worksheets("Lentzāģis").Cells(NewRow, 19).Value = Worksheets("Ievade").Range("B20").Value
Worksheets("Lentzāģis").Cells(NewRow, 20).Value = Worksheets("Ievade").Range("B21").Value
Worksheets("Lentzāģis").Cells(NewRow, 21).Value = Worksheets("Ievade").Range("B22").Value
Worksheets("Lentzāģis").Cells(NewRow, 22).Value = Worksheets("Ievade").Range("B23").Value
Worksheets("Lentzāģis").Cells(NewRow, 23).Value = Worksheets("Ievade").Range("B24").Value
Worksheets("Lentzāģis").Cells(NewRow, 24).Value = Worksheets("Ievade").Range("B25").Value
Worksheets("Lentzāģis").Cells(NewRow, 25).Value = Worksheets("Ievade").Range("B26").Value
Worksheets("Lentzāģis").Cells(NewRow, 26).Value = Worksheets("Ievade").Range("B27").Value
Worksheets("Lentzāģis").Cells(NewRow, 27).Value = Worksheets("Ievade").Range("B28").Value
Worksheets("Lentzāģis").Cells(NewRow, 28).Value = Worksheets("Ievade").Range("B29").Value
Worksheets("Lentzāģis").Cells(NewRow, 29).Value = Worksheets("Ievade").Range("B30").Value
Worksheets("Lentzāģis").Cells(NewRow, 30).Value = Worksheets("Ievade").Range("B31").Value
Worksheets("Lentzāģis").Cells(NewRow, 31).Value = Worksheets("Ievade").Range("B32").Value
Worksheets("Lentzāģis").Cells(NewRow, 32).Value = Worksheets("Ievade").Range("B33").Value
Worksheets("Lentzāģis").Cells(NewRow, 33).Value = Worksheets("Ievade").Range("B34").Value
Worksheets("Lentzāģis").Cells(NewRow, 34).Value = Worksheets("Ievade").Range("B35").Value
Worksheets("Lentzāģis").Cells(NewRow, 35).Value = Worksheets("Ievade").Range("B36").Value
Worksheets("Lentzāģis").Cells(NewRow, 36).Value = Worksheets("Ievade").Range("B37").Value
Worksheets("Lentzāģis").Cells(NewRow, 37).Value = Worksheets("Ievade").Range("B38").Value
Worksheets("Lentzāģis").Cells(NewRow, 38).Value = Worksheets("Ievade").Range("B39").Value
Worksheets("Lentzāģis").Cells(NewRow, 39).Value = Worksheets("Ievade").Range("B40").Value


MsgBox "Dati pievienoti!", vbOKOnly, "123"

Worksheets("Ievade").Range("B3").ClearContents

Worksheets("Ievade").Range("D7").Value = NewRow

Worksheets("Ievade").Range("B3").Select
End Sub

我的输入表是这样的：

Name1   | Jhon
Name2   | Don
Name3   | Arthur
Name4   | Andrew
Date    | 19.06.2017
Number  | 435
Number  | 274
Number  | 814

报告表应如下所示：

Jhon    | 19.06.2017  | 435  | 274  | 814  |
Don     | 19.06.2017  | 435  | 274  | 814  |
Arthur  | 19.06.2017  | 435  | 274  | 814  |
Andrew  | 19.06.2017  | 435  | 274  | 814  |

谁能帮帮我？

【问题讨论】：

你应该阅读loops和Transpose。
我没有看到您的数据或所需输出的示例。这很难帮助你。请编辑您的原始问题，以便提供a Minimal, Complete, and Verifiable example
每个工作表可以有多个日期吗？如果可以，应该如何处理？另外，您可以有多组名称/日期/数字吗？如果是，你怎么知道哪些名字与哪些日期和哪些数字相关联？
是的。我需要在那里输入每个日期。所以我需要一个函数，在新行中输入下一个数据，所以最后一个数据不会被覆盖。每次我输入名称和数据时，我按确认，数据将进入报告表。下次会有其他名字、其他日期和其他数字，应该和现有的一样。

标签： vba excel

【解决方案1】：

代码应该是这样的

Sub Ievades_poga()

Dim NewRow As Integer

NewRow = Worksheets("Ievade").Range("D7").Value + 1

If Worksheets("Ievade").Range("C7").Value <> 0 Then

MsgBox "K??da!", vbOKOnly, "123"

Exit Sub
End If

    Dim vDB
   vDB = Worksheets("Ievade").Range("B3").Resize(38)
   Worksheets("Lentzāģis").Cells(NewRow, 1).Resize(1, 38) = WorksheetFunction.Transpose(vDB)

MsgBox "Dati pievienoti!", vbOKOnly, "123"

Worksheets("Ievade").Range("B3").ClearContents

Worksheets("Ievade").Range("D7").Value = NewRow

Worksheets("Ievade").Range("B3").Select
End Sub

【讨论】：