问一个excel的弱问题 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Database - 数据库

问一个excel的弱问题

问一个excel的弱问题# Database - 数据库

m*u2005-03-06 08:03

1 楼

请教一个excel的问题
比如有一个数列，
a
1 value1
2 value2
3 value3
4 value4
5 value5
6 value6
7 value7
8 value8
9 value9
用什么命令能取出里面的一组值，比如，在数列b里面，让:
b
1 =a1
2 =a3
3 =a5
4 =a7
5 =a9
问题比较弱，先谢谢了。

x*r2005-03-06 08:03

2 楼

好像写点VBA比较现实
点开Excel的Tools菜单,选Macro/Visual Basic Editor,
在新打开的Microsoft Visual Basic窗口中选Insert/Module,
Paste下面的VBA code:
Sub PickValue()
Set SrcCell = Range("A1")
Set DstCell = Range("B1")
Do While Not IsEmpty(SrcCell)
If SrcCell.Row Mod 2 Then
DstCell.Value = SrcCell
Set DstCell = DstCell.Offset(1, 0)
End If
Set SrcCell = SrcCell.Offset(1, 0)
Loop
End Sub
按F5运行

【在 m***u 的大作中提到】