excel - 如何动态复制两个单元格的内容?
问题描述
现在我的程序有效。但是,当找到匹配项时,我需要复制位于要复制的单元格旁边的另一个单元格。我浏览了 myrange1,当我在 myrange2 中找到匹配项时,我从 Sheet1 中的 A 列从它所在的任何单元格复制内容。我也希望复制和粘贴相同的单元格索引 B 列。我复制的数据被粘贴在 R:S 列中。表 2。R 列是数字,S 是数据。
Sub matchcopy()
Dim i&
Dim myrange1 As Range, myrange2 As Range, myrange3 As Range, cell As Range
' You can use the Codenames instead of Worksheet("Sheet1") etc.
Set myrange1 = Sheet1.Range("A1", Sheet1.Range("A" & Rows.Count).End(xlUp))
Set myrange2 = Sheet2.Range("A1", Sheet2.Range("A" & Rows.Count).End(xlUp))
Set myrange3 = Sheet2.Range("B1", Sheet2.Range("B" & Rows.Count).End(xlUp))
Sheet2.Range("R:S") = "" ' <~~ clear result columns
For Each cell In myrange1 ' presumably unique items
If Not IsError(Application.Match(cell.Value, myrange2, 0)) Then
'Sheet2.Cells(i, 2).Offset(, 1).Resize(1, 1).Copy
cell.Copy
With Sheet2.Range("R50000").End(xlUp)
i = i + 1 ' <~~ counter
.Offset(1, 0) = i ' counter i equals .Row - 1
.Offset(1, 1).PasteSpecial xlPasteFormulasAndNumberFormats
End With
Else
'MsgBox "no match is found in range"
End If
Next cell
Sheet2.Columns("R:S").EntireColumn.AutoFit
Call Set_PrintRnag
End Sub
Sub Set_PrintRnag()
Dim LstRw As Long
Dim Rng As Range
Dim strDesktop As String
Application.ScreenUpdating = True
strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")
LstRw = Sheet2.Cells(Rows.Count, "R").End(xlUp).Row
Set Rng = Sheet2.Range("R1:S" & LstRw)
With Sheet2.PageSetup
.LeftHeader = "&C &B &20 Cohort List Report:" & Format(Now, "mm/dd/yyyy")
.CenterFooter = "Page &P of &N"
.CenterHorizontally = False
.FitToPagesWide = 1
.RightFooter = ""
End With
Rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDesktop & "\CohortList " & " " & Format(Date, "mm-dd-yyyy") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
解决方案
https://docs.microsoft.com/en-us/office/vba/api/excel.range.offset
您在“A”列中有一个单元格,但您希望在“B”列中有相同的行。
cell.Offset(0,1).value = cell.value
推荐阅读
- reactjs - 如何解决“未处理的拒绝(TypeError):无法使用 Axios 和 React 读取未定义的属性“statusText”?
- vue.js - 使用 Vue 和 Vuex 的购物车
- html - 如何在下拉选择器中将单击的选项显示为默认值
- angular - 类型修复 [] 上不存在检查的角度错误属性
- mercurial - “中止:远程 hg 没有合适的响应!”
- python - 如何从终端 Ubuntu 运行 Pycharm 两次或多次?
- excel - 用于在 Excel 中停止 ODBC 刷新的 Excel VBA 代码
- python-3.x - 如何将 df 的列更改为 df 的索引?
- javascript - 将所有依赖项捆绑到一个导入文件中
- themes - 在一个 Grav CMS 网站上拥有两个主题的最佳方式是什么?