Tag: 副本

基于非统一数据范围在两张纸之间链接数据: 我试图在一张纸上取一个非均匀范围的数据并将其链接（单元格将具有“= Sheet1！A1”，而不是硬编码值）到同一工作簿中的另一个工作表。我不能使用.UsedRange，因为我得到了很多空的单元格，我不想链接到另一个工作表这是我的代码到目前为止，但我得到一个错误，说你不能使用.copy这种select。有人可以请build议解决这个问题。谢谢。 Sub test() Application.ScreenUpdating = False ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants).Copy With Sheets("Sheet2") .Activate .Range("A1").Select ActiveSheet.Paste Link:=True End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

如何添加less量列数据并将其复制到另一列中的另一个excel文件中: 我希望将Financials – Flat Workbook中的数据复制到目标工作簿，按照与目标工作簿中的月份匹配的电子表格名称或B2列的SPRF编号进行复制，因此对于当前月份，它将是实际的在剩下的几个月里它将被预测。它将按照资源angular色，资源名称，活动和应用项目。将数据从一个工作簿复制到另一个工作簿例如 – 我想更新46441A，从平面文件SA，Dev …等小时，所以如果我必须手动执行，我将继续平面文件电子表格，检查153220质量保证，资源名称，46441A和ISET，取当前月份的总实际值和剩余月份的预测值，并将其复制到仪表板工作簿中。 SA，DEV，QA的所有正确Resangular色将从153220开始。

如何根据目标工作表中的条件将单元格从一个电子表格复制到另一个电子表格: 我有两个电子表格，第一个与病例相关的信息（病人信息，地址等）第二与医院信息（地址等）。我想将医院ID从医院电子表格复制到病例电子表格，其中医院ID城市与病例ID城市相同。例病例2，纽约等纽约医院1医院等新病例病人2，纽约，医院1 目标是从hospital.xls中取出医院ID，并将其复制到医院和病例之间城市匹配的case_details。

复制合并的单元格VBA: 我试图将整个行复制到一个新的工作表上，但只复制那些年龄在20岁以上的行。我还没有编写If语句来select这些行，但是已经编写了代码来导入数据并填写各个列，以便从出生date开始获得20岁生日。我的问题是在导入的工作表上的列中的单元格合并。这是合并的，因为一个人可能有多个孩子，所以在这种情况下，关于父母的单元格被合并。它不会让我复制合并的单元格。现在我只是试图解决如何复制整个工作表，所以我知道如何复制合并的单元格，然后再执行If语句。这是我到目前为止（大胆的底部是我试图复制合并的单元格的位置，我得到一个与ActiveSheet.Range（“**”）行错误。MergeArea.Copy Option Explicit Sub ImportActiveList() Dim FileName As String Dim WS1 As Worksheet Dim WS2 As Worksheet Dim ActiveListWB As Workbook Set WS2 = ActiveWorkbook.Sheets("Sheet1") FileName = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*),*.xls*", _ Title:="Select Active List to Import", _ MultiSelect:=False) If FileName = "False" Then Exit Sub Else Set ActiveListWB = […]

复制整个工作表，因为它没有隐藏的行: 我有一个代码，我用来从另一个工作簿复制整个工作表，我想要复制的工作表具有隐藏的列，这些列也与我目前使用的代码一起复制。所以我想要复制的工作表完全如何查看。没有隐藏的栏目等等。这是我目前的代码。 Dim x As Workbook Dim y As Workbook Dim vals As Variant Set y = ThisWorkbook Sheets("Sheet3").UsedRange.Delete Set x = Workbooks.Open("http://blabla/download.xlsx") With x.Sheets("SME Tal").UsedRange y.Sheets("Sheet3").Range("A1").Resize( _ .Rows.Count, .Columns.Count) = .Value End With

如果满足条件，则从一张纸上复制选定的数据并粘贴到选定范围的其他纸张上: 我有两张纸（Sheet1）=纸张（“Jan”）和Sheet2 =纸张（“Feb”）我只想从范围b5：b81从纸张（“Jan”）复制到纸张（“Feb”）如果满足范围AN5：AN81的条件。我使用这个代码，但不工作 Sub CopyRows() Dim Rng As Range Dim Rng2 As Range Dim Cl As Range Dim str As String Dim RowUpdCrnt As Long Set Rng = Sheets("Jan").UsedRange 'the range to search ie the used range Set Rng2 = Sheets("Jan").Range("B") str = "WRK." 'string to look for Sheets("Feb").Range("B5:B81").Value = "" RowUpdCrnt = 5 ' […]

跨列复制公式: 我有一个包含4列的电子表格：A，B，C，D。我想计算AB和CD之间的差异。所以在E2单元格中input公式= A2-B2，得到我想要的结果，这是AB之间的差异。现在我把E2中的公式拖到F2单元格中，期待Excel能“想”到现在我想要CD之间的区别。但是，当我从列E拖动公式列get = B2-C2（你看，Excel假设我想再次使用B2）。我的问题是：如何让excel“理解”我想在= A2-B2之后使用= C2-D2，而不是= B2-C2？这是一个简短的例子。原始数据集有数百列。谢谢你的帮助。

Excel，根据条件在工作表之间复制单元格: 我需要将单元格从另一个单元格复制到另一个单元格。如果sheet1中的cell.columnA包含sheet2中的cell.columnA中的文本，请将sheet1中的cell.columnB，cell.columnC，cell.columnD复制到sheet2。这可能吗？

从另一个Excel工作簿复制数据 – 而不是一张表复制所有的数据: 我有几个Excel文件，我想合并。每个文件有17张，分别命名为00,01,02,03等。现在，我打开每个工作簿，并尝试将数据复制到一个文件，也有16张，在表x我想从工作表x的所有其他工作簿中获得信息。现在，我打开文件，并为每个文件，我有这个代码： For i = 0 To 16 Workbooks(nazwaPliku).Activate zakladka = Right("0" & CStr(i), 2) Sheets(zakladka).Activate ileWierszy = Application.WorksheetFunction.Max(Sheets(zakladka).Range("B:B")) wierszMin = Application.WorksheetFunction.Match("1", Sheets(zakladka).Range("B:B"), 0) zakresDoKop = "A" & wierszMin + 1 & ":" & "I" & wierszMin + ileWierszy + 1 '1 wiecej dla bezpieczenstwa Sheets(zakladka).Range(zakresDoKop).Resize(ileWierszy, 1).Value = rok & "_" & czesc Sheets(zakladka).Range(zakresDoKop).Copy […]