Tag: 复制粘贴

Excel VBA中的dynamic范围不能正确粘贴

我有一个有两个工作表的工作簿。 工作表“Sheet2”具有新的月份数据和工作表“审计分数”是我将数据复制到的工作表。 我写的代码是假设检查“Sheet2”列c中的设备名称，然后在“审计分数”中find匹配的值，然后从Sheet2列e复制该值并粘贴到审计相应行的最后一列分数。 我遇到的问题是“审计分数”中粘贴的值不是“Sheet2”中的正确值。 希望这个错误是一个简单的，我只是盲目的。 代码如下： Sub newdata() Dim x As Variant, y As Long, z As Long, v As Date LRow = Cells(Rows.Count, 2).End(xlUp).Row Lcol = Cells(3, Columns.Count).End(xlToLeft).Column v = Date Worksheets("Audit scores").Activate Cells(1, Lcol + 1).EntireColumn.Insert Cells(1, Lcol + 1).Value = v For y = 1 To LRow For z = 1 To […]

macros从一个工作簿复制到另一个 – 不工作

美好的一天，我试图运行一个非常简单的代码，我打开一个工作簿，复制列“a：a”，打开另一个工作簿，并粘贴在那里。 我面临的问题是数据正在从第二个工作簿复制到第二个工作簿，没有任何东西正在从第一个被复制。 下面的代码更清晰 Sub Copytocurrent() strSecondFile = "Z:\AR\AR PROGRESS\2014\MENACA REPORTS\0MENACA Working File\AR Working File\UAE\RECEIVABLE.xls" strThirdFile = "Z:\AR\AR PROGRESS\2014\MENACA REPORTS\0MENACA Working File\AR Working File\UAE\Working File – UAE.xlsx" Set wbk2 = Workbooks.Open(strSecondFile) Set wbk3 = Workbooks.Open(strThirdFile) '——————————————————-' 'Copy column A in Receivable to Column XB in Working File' '——————————————————-' Application.CutCopyMode = False wbk2.Sheets("receivable").Activate With wbk2.Sheets("receivable") Range("a:a").Copy End […]

将模板行复制并粘贴到活动单元格下方的行中

我的目标是可以select位于第1到第3行的三个行模板中的一个，并根据我在哪里使用光标将select插入到下面的一行。 此代码工作正常，并插入选定的模板行： Sub InsertRowBelow() RowNumber = ActiveCell.Offset(1).Row SelectTemplate = InputBox("Which row level do you want to insert? 1 = Title, 2 = Subtitle, 3 = Task") Worksheets("Projektplan").Rows(SelectTemplate).EntireRow.Copy Worksheets("Projektplan").Rows(RowNumber).EntireRow.Insert Application.CutCopyMode = False Worksheets("Projektplan").Rows(RowNumber).Paste End Sub 但最后它会产生一个错误（ VBA错误438对象不支持这个属性或方法 ）。 这是为什么？

从HTML复制/粘贴到MS Excel时如何处理换行符

我的Java程序创build一个主要部分由一个表组成的HTML文件。 其中一个表列包含正好有换行符的文本值（在HTML表格中）。 输出的HTML需要被用户稍后复制/粘贴到MS Excel文件中。 一切都很顺利，直到我需要把换行换成Excel。 每当出现这种情况时，所述列的第一行就放入适合的Excel列中，但第二行从第一列开始创build一个新行。 这个问题已经有好几次了，但是没有涉及ASP的时候没有答复。 不用说， <br style="mso-data-placement:same-cell;">不起作用。 谢谢你的回答，我迫不及待想要修复它。

将特定条件下的一系列单元格粘贴到相同大小的目标范围内？

谢谢你的协助。 我无法在网上find这个解决scheme，所以这里是一个：P。 我想知道如何粘贴一个范围的值，在这种情况下，C6：R371，以相同的大小的另一个工作表。 我的问题是，我只想要将数据从源工作表粘贴到目标工作表上空白的单元格中，而不是更改目标工作表上范围C6：R371中的值。 从本质上讲，我有一个单元格的范围，我需要c＆p，但是我想让macros只将范围内的值粘贴到目标范围的空白单元格上。 非常感谢 Range("C6:S371").Select Selection.Copy wbWest2.Activate Dim rng As Range Dim row As Range Dim cell As Range Set rng = Range("D9:S374") For Each row In rng.Rows For Each cell in row.Cells If cell.value = 0 then selection.paste Next cell Next row

VBA筛选器表和复制子列的结果列到剪贴板

我正在尝试从源表中将行和列的子集自动复制到剪贴板以供其他应用程序使用。 我正在表头上创buildfilter，正确过滤行，但不知道如何然后select我想要的顺序列的子集。 源表是列A – L，我想按顺序将C，I，H和F列复制到剪贴板后应用filter。 下面包含一些代码（减去复制部分）。 Sub exportExample() Dim header As Range Dim srcCol As Range Set header = [A5:L5] header.AutoFilter header.AutoFilter 12, "Example", xlFilterValues 'Copy out columns C, I, H and F of the resulting table in that order End Sub 我可以弄清楚如何复制列，但不知道如何让他们在我想要的顺序。 任何帮助是极大的赞赏！ 谢谢！

Excel复制粘贴到SQL Server将BITtypes设置为空

我正在从一个数据库复制一些表数据到另一个（相同的表模式，表是一个数据库中的空，我复制从另一个数据库中的所有行）。 我这样做是通过在SQL Server Management Studio中运行select，将结果复制到Excel来检查，然后从Excel复制到SSMS的“编辑顶端200行”。 问题是有些列有BITtypes。 值在SSMSselect中显示为1/0，在Excel中显示为1/0。 但是在粘贴到SSMS之后，这些值都是空的。 BITtypes将显示为1/0，但不会parsing1/0作为input？ 这是否意味着BITtypes有效地不被复制粘贴操作所支持？ SSMS是版本10，Excel版本2003 SP3。

在VBA中将variablesRange从一个纯粹复制到另一个范围

我试图估计Excel表格的范围，然后将其从一个表格复制到另一个表格。 我已经用下面的代码成功地估计了表的LastRow和LastColumn。 Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("Sheet1") 'Ctrl + Shift + End LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row LastColumn = sht.Cells(7, sht.Columns.Count).End(xlToLeft).Column 我现在如何复制这个范围并粘贴到另一个表格？ 起始单元格也是以stringforms存储的input。 任何帮助表示赞赏。 谢谢 ！

复制一个variables值并将其粘贴到另一个数据表上

我现在想要做的是取一个范围（让我们说C：C），通过所有的值单元格，并粘贴到另一个电子表格。 我的目标是复制一个variables值（因为我不知道C：C中有多less个值），并粘贴到另一个表上，这样我就可以有一个新的范围和所有的值（如果没有重复值）。 如何编写If语句（对于variables值）。 如果有人能帮助我，我会感激的。 这就是我对此的看法： Sub Test_1() ' Go through each cells in the range Dim rg As Range Dim copySheet As Worksheet Dim pasteSheet As Worksheet Set copySheet = Worksheets("Data") Set pasteSheet = Worksheets("Data_storage") For Each rg In Worksheets("Data").Range("C:C") If rg.Value = "Client 1" Then 'Instead of "Client 1" should be a variable value […]

Maro在Excel中默认情况下始终复制并粘贴为公式

我需要帮助来检查这个macros，打算复制和粘贴没有格式。 它不能正常工作。 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Target.PasteSpecial xlPasteFormulas Application.CutCopyMode = True End Sub 我如何使Ctrl-V粘贴没有任何格式？ 我想保持excel干净整洁，所以用户可以复制和粘贴值和公式而不用格式化。 谢谢！