VBA 选取指定范围

Groove · 发表于 2017-10-23 04:16

条件: 选取指定范围由AAA页复制到BBB页
例如: 我需要三年班的数据, 由刘备到 "I16" 的数据复制到BBB页, VBA代码应该怎写?
还有一个重点: 三年班 = 单元格A11, 但每次AAA的数据中的三年班不一定在单元格A11, 可能在 A29. 有什么方法可以定位之后把数据复制

谢谢, 各位大神协助

wj2368 · 发表于 2017-10-23 08:07

......................

vbee · 发表于 2017-10-23 08:14

数据复制
Sub VBEE()
Dim RNG As Range
Sheets("BBB").Cells.ClearContents
Set RNG = ActiveCell.CurrentRegion.Offset(, 1)
RNG.Resize(RNG.Rows.Count, 20).Copy Sheets("BBB").[A1]
Sheets("BBB").Select
End Sub

wang-way · 发表于 2017-10-23 08:25

批量制作成绩条？

chxw68 · 发表于 2017-10-23 08:52

Public d As Object
Private Sub cmd_exit_Click()
Unload userform1
End Sub
Private Sub cmd_ok_Click()
Dim rng As Range
With Me
If .ComboBox1.ListIndex = -1 Then
Exit Sub
End If
With Worksheets("BBB")
.Cells.Clear
End With
d(.ComboBox1.Text).Copy Worksheets("BBB").Range("a1")
Unload userform1
End With
End Sub
Private Sub UserForm_Initialize()
Dim r%, i%
Dim arr, brr
Set d = CreateObject("scripting.dictionary")
With Worksheets("AAA")
r = .Cells(.Rows.Count, 2).End(xlUp).Row
arr = .Range("a1:a" & r)
For i = 1 To UBound(arr)
If Len(arr(i, 1)) <> 0 Then
c = .Cells(i, .Columns.Count).End(xlToLeft).Column
r = .Cells(i, 2).End(xlDown).Row
Set d(arr(i, 1)) = .Range(.Cells(i, 2), .Cells(r, c))
End If
Next
End With
With Me
With .ComboBox1
.List = d.keys
End With
End With
End Sub

复制代码

chxw68 · 发表于 2017-10-23 08:57

详见附件。

Groove · 发表于 2017-10-23 20:40

vbee 发表于 2017-10-23 08:14
数据复制
Sub VBEE()
Dim RNG As Range

老师你这个代码, 没法定位在三年班的数据当中

vbee · 发表于 2017-10-23 20:48

Groove 发表于 2017-10-23 20:40
老师你这个代码, 没法定位在三年班的数据当中

光标在哪选哪儿

Groove · 发表于 2017-10-24 01:32

vbee 发表于 2017-10-23 20:48
光标在哪选哪儿

老师, 可以做到直接定位到三年班? 那我就不用把光标放在哪. 谢谢

Groove · 发表于 2017-10-24 02:03

chxw68 发表于 2017-10-23 08:57
详见附件。

老师, 先感谢你的帮忙, 这个代码可以用, 但可以改为直接按一下就可以选择到三年班的数据, 复制到另外一页

		自动登录	找回密码
密码			免费注册

[求助] VBA 选取指定范围

最新热点 /1