将值粘贴到变量列中 [英] Paste value in variable column

问题描述

我目前有一个VB程序，可以复制和粘贴值数据。我希望能够做的是复制数据并将其粘贴到我选择的列中。


我将有几个数据来粘贴值。示例：我将选择列E，数据将值粘贴到第1行到第9行，然后一些数据将值粘贴到第11行到第20行，依此类推。


我假设一些循环将用于列选择？


感谢任何人的帮助和时间。

I currently have a VB program that will copy and paste value data. What I want to be able to do is copy data and paste value it in a column that I choose.

I''ll have several pieces of data to paste value. Example: I''ll choose column E and data will paste value into rows 1 thru 9, then some data will paste value into rows 11 thru 20 and so on.

I am assuming some sort of loop will be used for the column selection?

Thanks for anyone''s help and time.

推荐答案

在不同的单元格中是1个值吗？

如何输入列的值？值？串？在带分隔符的文本框中或在不同的文本框中？

您看到我们有多个问题和解决方案！


请您可以在字节中附加您的代码一些数据（不是所有数据都是如此）。

如果是机密数据，请输入一些虚拟值。

所以我们可以看到哪个方向我们必须寻找解决方案。

Is it 1 value in different cells?
How do you enter the value of the columns? value? string? in a textbox with separators or in different textboxes?
You see we have multiple questions and solutions!

Please is it possible to attach in Bytes your code with some data (not all if it''s to much).
If it''s confidential data, enter some fictive values.
So we can see in which direction we must search for a solution.

Guido，


感谢您的回复。


我有电子表格但无法将其复制到论坛中。如果你愿意，我可以通过电子邮件发送给它？


我希望能够从每周摘要中获取数据。并将其粘贴到数据的不同行中。电子表格。我需要能够在每天更改时选择列。


无论如何，这里是代码：


Sub Create_File（）


ActiveWorkbook.Save

ActiveWorkbook.Save

ActiveSheet.Shapes（" Button 1"）。选择

Selection.OnAction =" Create_File"

范围（L14）。选择


表格（每周摘要）。选择

Sheets（Weekly Summary）。Cells.Select

Selection.Copy

Selection.PasteSpecial Paste：= xlValues，Operation： = xlNone，SkipBlanks：= _

False，Transpose：= False

Sheets（Weekly Summary）。范围（A1）。选择

Application.CutCopyMode = False


Sheets（MTD Summary）。选择

Sheets（MTD Summary）。 .Select

Selection.Copy

Selection.PasteSpecial Paste：= xlVal ues，操作：= xlNone，SkipBlanks：= _

False，Transpose：= False

Sheets（MTD Summary）。范围（A1）。选择

Application.CutCopyMode = False


表格（数据）。选择

表格（数据） .Cells.Select

Selection.Copy

Selection.PasteSpecial Paste：= xlValues，Operation：= xlNone，SkipBlanks：= _

False， Transpose：= False

Sheets（Data）。范围（A1）。选择

Application.CutCopyMode = False


Sheets（Macro）。选择

ActiveWindow.SelectedSheets.Delete


End Sub


Sub Create_File（）

ActiveWorkbook.Save

ActiveWorkbook.Save

ActiveSheet.Shapes（" Button 1"） 。选择

Selection.OnAction =" Create_File"

范围（L14）。Selec t $ / $

表格（每周摘要）。选择

表格（每周摘要）.Cells.Select

Selection.Copy

Selection.PasteSpecial Paste：= xlValues，Operation：= xlNone，SkipBlanks：= _

False，Transpose：= False

表格（每周摘要）。范围（A1）。选择

Application.CutCopyMode = False


表格（MTD摘要 ;）。选择

Sheets（MTD Summary）。Cells.Select

Selection.Copy

Selection.PasteSpecial Paste：= xlValues ，操作：= xlNone，SkipBlanks：= _

False，Transpose：= False

Sheets（MTD Summary）。范围（A1）。选择

Application.CutCopyMode = False


Sheets（Data）。选择

Sheets（Data）。 Cells.Select

Selection.Copy

Selection.PasteSpecial粘贴： = xlValues，Operation：= xlNone，SkipBlanks：= _

False，Transpose：= False

Sheets（Data）。Range（A1）。选择

Application.CutCopyMode = False


Sheets（Macro）。选择

ActiveWindow.SelectedSheets.Delete


结束子


Sub Create_File（）


ActiveWorkbook.Save

ActiveWorkbook.Save

ActiveSheet.Shapes（" Button 1"）。选择

Selection.OnAction =" Create_File"

Range（ L14。选择


表格（每周摘要）。选择

表格（每周摘要）.Cells.Select

Selection.Copy

Selection.PasteSpecial粘贴：= xlValues，操作：= xlNone，SkipBlanks：= _

False，Transpose：= False

表格（每周汇总）。范围（A1）。选择

Appli cation.CutCopyMode = False


Sheets（MTD Summary）。选择

Sheets（MTD Summary）。Cells.Select

Selection.Copy

Selection.PasteSpecial Paste：= xlValues，Operation：= xlNone，SkipBlanks：= _

False，Transpose：= False

表格（MTD摘要）。范围（A1）。选择

Application.CutCopyMode = False


表格（ 数据）。选择

表格（数据）.Cells.Select

Selection.Copy

Selection.PasteSpecial粘贴： = xlValues，Operation：= xlNone，SkipBlanks：= _

False，Transpose：= False

Sheets（Data）。Range（A1）。选择

Application.CutCopyMode = False


Sheets（Macro）。选择

ActiveWindow.SelectedSheets.Delete


End Sub

Guido,

Thanks for the response.

I have the spreadsheet but cannot copy it into the forum. If you like I can email it to?

I want to be able to take data from the "Weekly Summary" and paste value it into different rows of the "Data" spreadsheet. I need to be able to select the column as it changes each day.

Anyway, here is the code:

Sub Create_File()

ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "Create_File"
Range("L14").Select

Sheets("Weekly Summary").Select
Sheets("Weekly Summary").Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Weekly Summary").Range("A1").Select
Application.CutCopyMode = False

Sheets("MTD Summary").Select
Sheets("MTD Summary").Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("MTD Summary").Range("A1").Select
Application.CutCopyMode = False

Sheets("Data").Select
Sheets("Data").Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Data").Range("A1").Select
Application.CutCopyMode = False

Sheets("Macro").Select
ActiveWindow.SelectedSheets.Delete

End Sub

Sub Create_File()

ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "Create_File"
Range("L14").Select

Sheets("Weekly Summary").Select
Sheets("Weekly Summary").Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Weekly Summary").Range("A1").Select
Application.CutCopyMode = False

Sheets("MTD Summary").Select
Sheets("MTD Summary").Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("MTD Summary").Range("A1").Select
Application.CutCopyMode = False

Sheets("Data").Select
Sheets("Data").Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Data").Range("A1").Select
Application.CutCopyMode = False

Sheets("Macro").Select
ActiveWindow.SelectedSheets.Delete

End Sub

Sub Create_File()

ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "Create_File"
Range("L14").Select

Sheets("Weekly Summary").Select
Sheets("Weekly Summary").Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Weekly Summary").Range("A1").Select
Application.CutCopyMode = False

Sheets("MTD Summary").Select
Sheets("MTD Summary").Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("MTD Summary").Range("A1").Select
Application.CutCopyMode = False

Sheets("Data").Select
Sheets("Data").Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Data").Range("A1").Select
Application.CutCopyMode = False

Sheets("Macro").Select
ActiveWindow.SelectedSheets.Delete

End Sub

如果可能的话，请a在字节中输入工作簿。

以字节为单位附加文件：请参阅随附的DOC或PDF以获取帮助。

当我们看到工作簿时，这对我们来说要容易得多他的结构比找出没有意义的代码，如果你看不到表格。

如果它很大，只是一部分数据，所以我们可以看到您的布局是什么，我们可以使用数据处理相同的工作表。

如果工作表上的信息是保密的，请输入虚拟数据！

Please, if possible, attach the workbook in Bytes.
To attach files in Bytes: see attached DOC or PDF for help.
It''s much easier for us when we see the workbook and his structure than to figure out the code with names who have no meaning if you don''t see the sheets.
If it''s to large, just a part of the data so we can see what your layout is and we can work on the same sheets with data.
If the information on the sheets is confidential, please enter fictive data!

附加文件

Bytes_manual_v2.zip （241.2 KB，58 views）

Attached Files

Bytes_manual_v2.zip (241.2 KB, 58 views)

这篇关于将值粘贴到变量列中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！