使用 Excel 宏选择范围

发布于 2024-11-09 21:57:47 字数 898 浏览 3 评论 0原文

  A      B        C

123455  XXX     99999
123456  XX      100000
123457  XXX     100001
174564  XXXX    100002
184567          100003
194570          100004
204573          100005
214576          100006
224579          100007
                100008

我想编写一个宏来使用 选择范围+ <向下箭头>

过程应如下所示

选择单元格 A1
使用 选择范围+; +
选择单元格 A1 而不取消范围选择（使用）
ActiveCell.Offset(0, 2).Select
然后使用从C1到C9选择范围+; + <向下翻页> 然后 ; + <向上箭头>

按照我的示例数据中的步骤，在同一行选择 224579 和 100007，未选择 100008。

我想选择 A1 到 A9 以及 C1 到 C9 之间的范围，但我希望宏在不定义 A1 和 A9 之类的范围的情况下执行此操作，因为范围可能会发生变化，就像 A1 在进行一些更改后更改为 A5 一样。因此，我希望宏能够相应地适应并获取数字。

原文

  A      B        C

123455  XXX     99999
123456  XX      100000
123457  XXX     100001
174564  XXXX    100002
184567          100003
194570          100004
204573          100005
214576          100006
224579          100007
                100008

I would like to write a macro for selecting a range using <ctrl> + <down arrow>

The process should be like this

Select cell A1
Select a Range with <shift> + <ctrl> + <page down>
Aelect cell A1 without cancelling the range selection (using <ctrl>)
ActiveCell.Offset(0, 2).Select
Then range select from C1 to C9 with <shift> + <ctrl> + <page down> then <shift> + <up arrow>

Following those steps in my example data, 224579 and 100007 are selected at same row, 100008 is not selected.

I want to select the range between A1 to A9 also C1 to C9, but I want the macro to do this without defining a range like A1 and A9, because the range will probably change like A1 will change to A5 after some alterations. So, I want the macro to adapt and grab the numbers accordingly.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

淤浪 2024-11-16 21:57:47

如果 A1 是活动单元格，这应该可以工作。

Union(Range(ActiveCell, ActiveCell.End(xlDown)), Range(ActiveCell.Offset(0, 2), ActiveCell.End(xlDown).Offset(0, 2))).Select

This should work if A1 is the active cell.

Union(Range(ActiveCell, ActiveCell.End(xlDown)), Range(ActiveCell.Offset(0, 2), ActiveCell.End(xlDown).Offset(0, 2))).Select

回复收藏 0 原文

怀中猫帐中妖 2024-11-16 21:57:47

不确定，但你想要这个吗？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Static self_protect As Boolean

  If self_protect Then Exit Sub

  self_protect = True
  Set Target = Target.Areas(1)
  Application.Union(Target, Target.Offset(0, 2)).Select
  self_protect = False
End Sub

将代码粘贴到工作表代码模块中，并在工作表上选择一个范围。

Not sure, but do you want this?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Static self_protect As Boolean

  If self_protect Then Exit Sub

  self_protect = True
  Set Target = Target.Areas(1)
  Application.Union(Target, Target.Offset(0, 2)).Select
  self_protect = False
End Sub

Paste the code into a worksheet code module and select a range on the sheet.

回复收藏 0 原文

~没有更多了~