设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Excel 培训班 › Excel VBA初级班 › 【V入2期】数组入门练习七

数据透视表40+个常用小技巧，让你一次学会！

1 2 3 456 / 6 页下一页

发新帖

楼主: uranus1997

[习题] 【V入2期】数组入门练习七

发表于 2008-11-24 21:09 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

[em11]

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

发表于 2008-11-25 13:55 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

[em02]俺只看一眼皮皮的

回复

使用道具举报

发表于 2008-11-25 23:15 | 显示全部楼层

工作中最常用的Excel函数公式，全印在一张鼠标垫上

[em02]

回复

使用道具举报

发表于 2008-11-25 23:28 | 显示全部楼层

<p>学习</p>

回复

使用道具举报

球形身材的猪

发表于 2009-10-27 15:36 | 显示全部楼层

<img alt="" src="http://www.excelpx.com/Skins/default/topicface/face9.gif"/>

回复

使用道具举报

开心萝卜惠州

发表于 2009-12-21 11:01 | 显示全部楼层

谢谢分享！

回复

使用道具举报

发表于 2009-12-21 16:37 | 显示全部楼层

[em01][em02][em01][em02]

回复

使用道具举报

发表于 2010-8-8 15:06 | 显示全部楼层

FRTRTRTRTRT

回复

使用道具举报

发表于 2011-1-22 20:12 | 显示全部楼层

Sub cc()
arr = Split(Cells(1, 1), ",")
r = UBound(arr)
Dim arr1
ReDim arr1(0 To r, 1 To 2)
For i = 0 To r
arr1(i, 1) = IIf(i < 11, Left(arr(i), 1), Left(arr(i), 2))
arr1(i, 2) = IIf(arr(i) Like "*女*", "女", "男")
Next i
Range("d6:e25") = arr1
End Sub

复制代码

回复

使用道具举报

发表于 2011-4-14 20:23 | 显示全部楼层

参考一下各位的答案*******

回复

使用道具举报

1 2 3 456 / 6 页下一页

发新帖

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-29 04:17 , Processed in 0.334618 second(s), 6 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表