blocks|key|1338406|text|您是否尝试过：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1338407|对于一个单元格：|1338408|ActiveCell.Select|code-block|syntax|javascript|1338409|对于多个选定的单元格：|1338410|Selection.Range|1338411|例如：|1338412|Dim+rng+As+Range
Set+rng+=+Range(Selection.Address)|1338413|entityMap^0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|T|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|V|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|W|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|X|8|@]|9|@]|A|$]]|$1|O|3|P|5|F|7|Y|8|@]|9|@]|A|$G|H]]|$1|Q|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|R|$]]

Have you tried:

For one cell:

<pre><code>ActiveCell.Select
</code></pre>

For multiple selected cells:

<pre><code>Selection.Range
</code></pre>

For example:

<pre><code>Dim rng As Range
Set rng = Range(Selection.Address)
</code></pre>

blocks|key|1123495|text|如果你想用一个动态生成的字符串来获取一个范围，那么你只需要像这样构建这个字符串：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1123496|Range(firstcol+&+firstrow+&+":"+&+secondcol+&+secondrow).Select|code-block|syntax|javascript|1123497|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

If you're trying to grab a range with a dynamically generated string, then you just have to build the string like this:

<pre><code>Range(firstcol &amp; firstrow &amp; ":" &amp; secondcol &amp; secondrow).Select
</code></pre>

blocks|key|1338550|text|这可能无助于直接回答你的问题，但在尝试使用动态范围时，我发现它很有用，可能会对你有所帮助。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1338551|假设在您的工作表中，单元格A1:C3中有数字100到108：|1338552|++++++++++A++++B++++C++
1++++++++100++101++102
2++++++++103++104++105
3++++++++106++107++108|code-block|syntax|javascript|1338553|然后，要选择所有单元格，可以使用CurrentRegion属性：|offset|length|style|CODE|1338554|Sub+SelectRange()
Dim+dynamicRange+As+Range

Set+dynamicRange+=+Range("A1").CurrentRegion

End+Sub|1338555|这样做的好处是，如果您向数字块添加新的行或列(例如109、110、111)，则CurrentRegion将始终引用扩大的范围(在本例中为A1:C4)。|1338556|我在我的VBA代码中使用了相当多的CurrentRegion，并且发现它在处理动态大小的范围时非常有用。此外，它还避免了在代码中硬编码范围。|1338557|最后，在我的代码中，您将看到我使用A1作为CurrentRegion的引用单元格。无论引用哪个单元格，它都可以正常工作(例如，尝试:用B2替换A1+)。原因是CurrentRegion将根据参考单元格选择所有连续的单元格。|1338558|entityMap^0|0|0|0|G|D|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|Z|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|10|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|11|8|@$K|12|L|13|M|N]]|9|@]|A|$]]|$1|O|3|P|5|F|7|14|8|@]|9|@]|A|$G|H]]|$1|Q|3|R|5|6|7|15|8|@]|9|@]|A|$]]|$1|S|3|T|5|6|7|16|8|@]|9|@]|A|$]]|$1|U|3|V|5|6|7|17|8|@]|9|@]|A|$]]|$1|W|3|-4|5|6|7|18|8|@]|9|@]|A|$]]]|X|$]]

This may not help answer your question directly but is something I have found useful when trying to work with dynamic ranges that may help you out.

Suppose in your worksheet you have the numbers 100 to 108 in cells A1:C3:

<pre><code> A B C 
1 100 101 102
2 103 104 105
3 106 107 108
</code></pre>

Then to select all the cells you can use the <code>CurrentRegion</code> property:

<pre><code>Sub SelectRange()
Dim dynamicRange As Range

Set dynamicRange = Range("A1").CurrentRegion

End Sub
</code></pre>

The advantage of this is that if you add new rows or columns to your block of numbers (e.g. 109, 110, 111) then the CurrentRegion will always reference the enlarged range (in this case A1:C4).

I have used CurrentRegion quite a bit in my VBA code and find it is most useful when working with dynmacially sized ranges. Also it avoids having to hard code ranges in your code.

As a final note, in my code you will see that I used A1 as the reference cell for CurrentRegion. It will also work no matter which cell you reference (try: replacing A1 with B2 for example). The reason is that CurrentRegion will select all contiguous cells based on the reference cell.

blocks|key|1123593|text|尝尝这个|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1123594|Dim+app+As+Excel.Application+=+Nothing
Dim+Active_Cell+As+Excel.Range+=+Nothing

Try
++app+=+CType(Marshal.GetActiveObject("Excel.Application"),+Excel.Application)
++Active_Cell+=+app.ActiveCell

Catch+ex+As+Exception
++MsgBox(ex.Message)
++Exit+Sub
End+Try

'+.address+will+return+the+cell+reference+:)|code-block|syntax|javascript|1123595|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Try this
<pre><code>Dim app As Excel.Application = Nothing
Dim Active_Cell As Excel.Range = Nothing

Try
 app = CType(Marshal.GetActiveObject(&quot;Excel.Application&quot;), Excel.Application)
 Active_Cell = app.ActiveCell

Catch ex As Exception
 MsgBox(ex.Message)
 Exit Sub
End Try

' .address will return the cell reference :)
</code></pre>

I have a small script in Excel/VB that I'm trying to get working. All I want to do is select a dynamic range of data to copy but I can't seem to find any help/code on how to get the grid data (like A11). 

Here is code I have from macro recording that selects the range of data:

<pre><code>Range("D291:D380").Select
</code></pre>

I was hoping I could just do <code>Range(Current).Select</code> or something but that doesn't work.

Any help is appreciated.

Get the current cell in Excel VB

我在Excel/VB中有一个小脚本，我正在尝试使用它。我想要做的就是选择一个动态范围的数据进行复制，但是我似乎找不到任何关于如何获取网格数据的帮助/代码(比如A11)。下面是我从宏录制中获得的选择数据范围的代码：Range("D291:D380").Select我希望我可以只做Range(Current).Select...

问在Excel VB中获取当前单元格
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在Excel VB中获取当前单元格EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在Excel VB中获取当前单元格
EN