Excel VBAは行と列にデータを転送します

したがって、Excel VBAに問題があります。私は入力シートとレポートシートを持っています。データシートには、名前、日付、およびカウントを持つテーブルがあります。私はそれを他のシートに移す必要があります。しかし、私は名前が必要です。それぞれ新しい行にあり、同じデータが入力シートに列のすべての名前で入力されています。私はすでに一列にすべてを作ったが、そこにはまった。コードは、これまで：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 |

誰も私を助けてくださいことはできますか？

出典

2017-06-19 Edijs Youknow

あなたが読むべき程度[ループ]（https://stackoverflow.com/documentation/vba/1873/flow-control-structures）と[トランスポーズ]（のようになりだろうhttps://msdn.microsoft.com/VBA/Excel-VBA/articles/worksheetfunction-transpose-method-excel）。 –

私はあなたのデータまたは望ましい出力の例を見ません。それはあなたを助けるのが難しいです。 –

ワークシートごとに複数の日付を持つことができますか？はいの場合、どのようにそれらのものができますか？扱われるはずですか？また、名前/日付/番号の複数のグループを持つことができますか？はいの場合、どの名前がどの日付と数字に関連付けられているかをどのように知っていますか？ –

コードは、この

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

出典

2017-06-19 10:37:12

Excel VBAは行と列にデータを転送します

答えて

関連する問題