Tag: 复制

VBA从工作簿中复制文件夹中的单元格值: 我需要为大约150个产品创build计算，每个产品由大约50-60个子产品组成。根据子产品是从外部生产还是从外部购买，价格将以不同的方式计算。本质上，我需要复制粘贴产品中包含的每个子产品的重量和价格，并确定其来源。我希望excel能够查看以前在同一个文件夹（所有不同的工作簿）中进行的计算，并且如果在工作簿中find一个单元格，则将权重，价格和源文件复制粘贴到当前打开的工作簿中。我完全失去了如何比较细胞，如果find了匹配，然后将其复制到正确的位置。我相信.Find和.FindNext在这里可能是有用的，但我不完全确定如何使用它们。以下是我的数据结构的一个例子：这是我迄今为止发现的： Sub RunCodeOnAllXLSFiles() Dim lCount As Long Dim wbResults As Workbook Dim wbCodeBook As Workbook Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False On Error Resume Next Set wbCodeBook = ThisWorkbook With Application.FileSearch .NewSearch 'Change path to suit .LookIn = "C:\ahjualune\stuff" .FileType = msoFileTypeExcelWorkbooks 'Optional filter with […]

如何匹配2张数据并根据匹配复制数据？: 这是我的困境：我有2个Excel表。 – One is a target sheet with already existing information – One is a source sheet 我需要将源表格列C中使用的单元格与目标表格列A所使用的单元格相匹配，并将每行从源到目标（到相邻行）复制3个单元格。所以，假设我在源表格列C中的一个单元格中具有“TESTUSERtesting”，并且在目标表格列A中的某个单元格中有相同的名称。从名称在源表格中的行，我需要复制将A，B，C列单元格（仅从该行）数据传输到名称在A列中的目标行的列到C，D，E列。源表C列中的每个名称都需要完成相同的操作我已经成功地从两张表中获取所需的值，但是我不知道如何匹配数据并根据这些数据进行复制。

Excelmacros复制粘贴到第一个空行中的另一个xls文件: 我目前正在进行一个数字化项目，我必须分析超过100个FB excel文件的数据。我的分析过程的一部分在于从特定单元格中提取数据，这些数据总是相同的。正如你所理解的，我想做一个macros观的，以避免无谓的浪费时间。我知道如何在文件中提取它，但我想适应我的macros，以便将其复制到另一个文件中。我的代码是以下内容： ***范围。（ “A9：D9”）select Selection.Copy 窗口（ “test2.xlsx”）。激活 ActiveSheet.Paste *** 现在我想将数据粘贴到一个空行，以便有数百行一个在另一个（每个FB提取一个）。有人会给我正确的代码，以避免巨大的浪费时间？

从Excel复制/粘贴到Web应用程序: 我必须创build一个Web应用程序，允许从Excel复制和粘贴在networking上，并获得相同的事情，反之亦然。我不知道web开发的很多东西，但我发现了一些解决scheme，如： -sharepoint和办公室的networking应用程序 -asp.net + ajax – 在Excel中创build一个加载项，以便在服务器上发送elem（但是该项目只能在这个解决scheme的excel上运行）使用PHPExcel的HTML + PHP 还有其他的解决scheme或者哪一个是最好的？谢谢

有没有办法生成一个string，可以粘贴到Excel的通用格式（即项目符号，单元格内换行符）: 我的客户有一个完整的HTML表格格式的网站。该网站的function是从HTML表格中select不同的行，并将行的内容（以及其他数据）复制到剪贴板。客户端需要这个结果string的格式来维护某些单元格格式，例如换行符和项目符号。目前我正在使用AJAXcallback的零剪贴板来生成内容并将其复制到剪贴板。那部分工作正常。我已经处理了结果string来使用"\t"字符来分隔行中的单元格和"\n"来分隔行。过去，我迷路了。有没有办法将项目符号点字符和单元格内换行符编码为UTF-8string，以便格式化在到达Excel时保留下来？ Web服务器使用PHP 5.3运行Apache。

从一个工作簿复制一个范围并粘贴到另一个VBA表单: 我使用VBA运行代码。它通过循环一个目录并拉取文件开始。我的目标是复制范围并将其粘贴到模板工作表。复制代码如下所示： Dim StrFile As Variant For Each StrFile In var Workbooks.Open (loc1 & StrFile) sh.Activate On Error Resume Next Set uBOM = Cells.Find(What:="No.", After:=[A1], LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) Range(Cells(uCost.Row + 1, uCost.Column), Cells(uCost.Row.End(xlDown), uCost.Columnn + 4)).Copy On Error GoTo 0 Next StrFile 我怎样才能修改这个或使用粘贴到模板工作簿（我将运行的代码）？问候，马克

如何将列A中的特定字符replace为Excel中列B中的值？: 我在Excel中工作。下面的代码是列A中的4行。在列BI中有一系列从0开始的整数。我希望列B中的值replace“？”。在A列。我search谷歌高级复制和粘贴，并find和replace技术在Excel中，但结果只是告诉我使用粘贴特殊。我试图在查找和replace工具中引用列B，但无法这样做。任何帮助将不胜感激。 "<class type=""sItemManager::cITEM_PARAM_DATA""> <s16 name=""data.mNum"" value=""900""/> <s16 name=""data.mItemNo"" value=""?""/> <u32 name=""data.mFlag"" value=""1""/> <u16 name=""data.mChgNum"" value=""0""/> <u16 name=""data.mDay1"" value=""0""/> <u16 name=""data.mDay2"" value=""0""/> <u16 name=""data.mDay3"" value=""0""/> <s8 name=""data.mMutationPool"" value=""0""/> <s8 name=""data.mOwnerId"" value=""4""/> <u32 name=""data.mKey"" value=""0""/> </class>" "<class type=""sItemManager::cITEM_PARAM_DATA""> <s16 name=""data.mNum"" value=""900""/> <s16 name=""data.mItemNo"" value=""?""/> <u32 name=""data.mFlag"" value=""1""/> <u16 name=""data.mChgNum"" value=""0""/> <u16 name=""data.mDay1"" value=""0""/> […]

复制和粘贴行和列取决于单元格的值: 你好，我需要一些代码的帮助，基本上我有一个工作簿，其中有很多数据的产品附件列在行旁边列这些有所有单元格中的空白字段的产品，基本上是点这是当用户在任何这些单元格中键入“x”时，表格能够被过滤。我已经做了一个总结表，我希望它看到这些特定的列，例如列EN，如果它包含一个“X”它将复制相应的行是A，B，C，D，并粘贴在这张汇总表一个接一个地从上面的行复制产品例如 Column E has an x in E4,5,10,15,53 我希望它复制 ABCD4 ABCD5 ABCD10 ABCD15 ABCD53 以及产品名称，例如位于每一列的第一个空白框上方的“甜瓜”，在这种情况下，可以说E4是第一个空白，所以E3将是产品名称。并将其粘贴在一张又一张的“总结表”中。我知道这真的很混乱，但我希望你能帮助:) 代码我有：我现在有这个代码和即时通讯几乎在哪里我想成为我需要帮助就行了 Range("A5").Select 它给了我一个错误，但除非我select这个单元格，它随机粘贴在工作表上 Private Sub CommandButton9_Click() Range("A7:D7").Select Range(Selection, Selection.End(xlDown)).Select ' Go to last line ' Add a filter behavior Selection.AutoFilter Field:=5, Criteria1:="<>" Range("A7:D7").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ' Paste data where you want Sheets ("Summary Sheet") Range("A5").Select […]

考虑到唯一的参考号码，将一行中的单元格复制到另一个表格: 我尝试通过将表单中的input参考号与“logging”栏B中的数字进行匹配来从表单“logging”中提取数据。我可以通过命令button点击下面的VB代码。但是，它只会从表单“logging”列i中返回一个单独的值，并且编码每个都将非常耗时。 Private Sub CommandButton1_Click() With Application.WorksheetFunction Sheets("Form").Range("b:b") = _ .Index(Sheets("Record").Range("h:h"), .Match(Sheets("Form").Range("i13"), Sheets("Record").Range("b:b"), 0), 1) End With End Sub 如果工作表“表格”的单元格I13中的参考编号与表格“logging？”的列B上的任何值相匹配，我想知道是否可以将表格“logging”列HQ中的值复制到表格“表格”列BK中？因为我大部分时间遇到的是返回整行。我真的很感激任何帮助。谢谢

Excel VBA复制图片/图表到另一个工作簿: 我目前有编写的代码将一个工作簿的字段复制到另一个工作簿。我现在采取一个范围和'快照'，然后将其另存为一个单独的.bmp文件。我也想采取这个快照，并将其附加到工作簿的单元格，我正在复制一切。任何人有任何build议，或看到我可以在这里添加代码？ Sub Macro4() “logging和文件”报告 Dim Model As String Dim IssueDate As String Dim ConcernNo As String Dim IssuedBy As String Dim FollowedSEC As String Dim FollowedBy As String Dim RespSEC As String Dim RespBy As String Dim Timing As String Dim Title As String Dim PartNo As String Dim Block As String […]