Excel中引用变量的Range区域 excel中如何用range表示一个不固定范围区域的单元格呢...
Excel \u8bf7\u95eeRANGE\u4e2d\u53d8\u91cf\u7684\u5199\u6cd5Range("A1:C3") \u53ef\u4ee5\u5199\u6210
Range(cells(1,1),cells(3,3)) \u5176\u4e2d\u6570\u5b57\u53ef\u4ee5\u7528\u53d8\u91cf\u66ff\u4ee3
1.range("A"&i&":B"&j) ,\u53e6\u4e2a\u8868\u793a\u65b9\u6cd5range(cells(i,"A"),cells(j,"B"))
2.range(cells(i,x),cells(j,y))
因为要用VB做循环,所以Range的边界必须要用变量。
程序大概是这样的,一堆xls文件,每个有n个sheets, 每个sheet的表头基本上是一样的,但记录的数据有多有少,开始和结束的行列数都不同。
所以要用VB做循环,依次把文件打开,定位到每个sheet中数据区的第一行一列和最后一行一列,读出iRow和iColumn,调用excel的Average函数把平均值算出来。
现在其他都弄好了,就是调用函数中的单元格区域/范围的引用总是搞不定,VB不认那个,表达式写上去,正行立马就变成红的了。
range()里面有两种都可以
1.
一个表示单元格(区域)地址的字符串，比如"a1:b10",只要计算结果满足这种字符串，就可以
range("a2:"
&
"c"
&
20)，其中除了运算符(&)的任何一部分都可以是变量
2.
range(cells1,cells2),表示左上角为单元格cells1到右下角为cells2的一个矩形区域。变量可以在cells(row,column)中
不能这么反回引用范围。这样试试。
Function myRange(a, b, c)
d = Split(Cells(1, c).Address, "$")(1)
'd = "F"
myRange = d & a & ":" & d & b
End Function
然后公式用=countif(INDIRECT(myRange(4,$a$1,column()),"X")
column()重复，删掉一个
你赋值写反了，改一下，我给你简化一下吧
Public Function myRange(a, b, c, d)
myRange = Range(Cells(a, b), Cells(c, d))
End Function
你再试试
很多问题：
1，统计个数，那么countif在哪儿呢？
2，统计值为x的单元格，那么x在哪儿呢？
3，为什么要赋值呢?
4，为什么要这么多参数？列是所在列，行信息也有，除了x，其实根本不需要其他参数。
Function myRange(a)
myRange = Application.WorksheetFunction.CountIf(Range(Cells(4, ActiveCell.Column), Cells([a1], ActiveCell.Row)), a)
End Function
绛旓細Rang("'Date'!T4")鐨rang搴旇鏄痳ange 杩欐槸VBA灏哾ate宸ヤ綔琛ㄤ腑鐨凾4鍗曞厓鏍肩殑鍊艰祴缁欐煇鍙橀噺鐨勮鍙ャ
绛旓細1銆佺浉瀵瑰紩鐢細鍏紡涓殑鐩稿鍗曞厓鏍煎紩鐢ㄦ槸鍩轰簬鍖呭惈鍏紡鍜屽崟鍏冩牸寮曠敤鐨鍗曞厓鏍肩殑鐩稿浣嶇疆銆傚鏋滃叕寮忔墍鍦ㄥ崟鍏冩牸鐨勪綅缃敼鍙橈紝寮曠敤涔熼殢涔嬫敼鍙樸傚鏋滃琛屾垨澶氬垪鍦板鍒跺叕寮忥紝寮曠敤浼氳嚜鍔ㄨ皟鏁淬2銆佺粷瀵瑰紩鐢細鍗曞厓鏍间腑鐨勭粷瀵瑰崟鍏冩牸寮曠敤鎬绘槸鍦ㄦ寚瀹氫綅缃紩鐢ㄥ崟鍏冩牸銆傚鏋滃叕寮忔墍鍦ㄥ崟鍏冩牸鐨勪綅鍏夎缃敼鍙橈紝缁濆寮曠敤鐨勫崟鍏冩牸濮...
绛旓細Sub RangVsCellsDemo()Dim r ' 1. 鍏堢湅 Range 鍜 Cells 鐨瀹氫箟 ' A. Range 鐨勫畾涔変负 Class Range,琛ㄧず Range 鏄竴涓被,鍙互鏍规嵁鍏舵墍甯︾殑鍙傛暟鏋勯犱竴涓猂ange 瀵硅薄 ' B. Cells 鐨勫畾涔変负 Property Cells As Range,琛ㄧず Cells 鏄竴涓睘鎬,杩斿洖涓涓 Range 瀵硅薄,鍏蜂綋搴 ' 鐢ㄤ簬涓嶅悓瀵硅薄鏃惰繑鍥炲...
绛旓細RAND 璇峰弬闃 杩斿洖澶т簬绛変簬 0 鍙婂皬浜 1 鐨鍧囧寑鍒嗗竷闅忔満鏁帮紝姣忔璁＄畻宸ヤ綔琛ㄦ椂閮藉皢杩斿洖涓涓柊鐨勬暟鍊笺傝娉 RAND( )璇存槑 鑻ヨ鐢熸垚 a 涓 b 涔嬮棿鐨勯殢鏈哄疄鏁帮紝璇蜂娇鐢細RAND()*(b-a)+a 濡傛灉瑕佷娇鐢ㄥ嚱鏁 RAND 鐢熸垚涓闅忔満鏁帮紝骞朵笖浣夸箣涓嶉殢鍗曞厓鏍艰绠楄屾敼鍙橈紝鍙互鍦ㄧ紪杈戞爮涓緭鍏モ=RAND()鈥濓紝淇濇寔缂栬緫...
绛旓細RANG瀵硅薄鐨澶氱鐢ㄦ硶锛歊ANG.ROW 鍏剁粍鎴愮殑绗竴涓狢ELL鐨勮鏁 RANG.COLUMN 缁勬垚鍏剁殑绗竴涓狢ELL鐨勫垪鏁 涓句緥 DIM RNG AS RANG SET RNG=SHEET1.RANG(SHEET1.CELLS(1,1),SHEET1,CELLS(2,3))杩欎釜鍒楀瓙涓紝瀹氫箟浜嗕竴涓猂ANG瀵硅薄鐨勫簲鐢紝浣垮叾搴旂敤鍒癝HEET1鐨 锛1锛1)鏍煎拰锛2锛3锛夋牸缁勬垚鐨勪竴涓ぇ...
绛旓細.row+1 瑕佽〃绀轰綘瑕鐨鍗曞厓鏍煎尯鍩燂紝鍙互琛ㄧず涓 range("A" &w &":K" & w+11)鎴栬 range(cells(w,1),cells(w+11,"K"))涔熷彲浠ョ洿鎺ュ彇寰楄繖涓尯鍩燂紝浠ｇ爜濡備笅 Sub test() Dim rng1 As Range Set rng1 = Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(11, 11)End Sub ...
绛旓細Rang(鈥淏3鈥).Activate銆傚氨鏄変腑B3鍗曞厓鏍笺俁ang涓嶤ells閮芥槸琛ㄧず鍗曞厓鏍煎尯鍩熴
绛旓細range = (Range)worksheet.get_Range("B2", "E5");range.Cells[1,1].Value="12345";//缁橞2鍗曞厓鏍艰祴鍊
绛旓細sumif(rang,criteria,[sum_rang]) 鍙傛暟璇存槑: rang,鏉′欢鍒ゆ柇鍖哄煙; criteria,鍒ゆ柇鏉′欢; [sum_rang],姹傚拰鍖哄煙; 绀轰緥: =SUMIF(A:A,">10",A:A) 璇ュ叕寮忔寚,瀵笰鍒楀ぇ浜10鐨鍊艰繘琛屾眰鍜屻 鏈洖绛旂敱鐢佃剳缃戠粶鍒嗙被杈句汉 鍒樿仾鑱帹鑽 涓炬姤| 绛旀绾犻敊 | 璇勮 3 0 slai_鏋 閲囩撼鐜:70% 鏉ヨ嚜鍥㈤槦:Excel涔嬪 鎿呴暱...
绛旓細1銆侀鍏堥渶瑕佸湪D3鍒楁彃鍏LOOKUP鍑芥暟锛岀偣鍑绘煡鎵句笌寮曠敤锛屽涓嬪浘鎵绀恒2銆佸嚮鍑鐨涓嬫媺鑿滃崟涓夋嫨VLOOKUP鍑芥暟锛屽氨浼氳烦鍑篤LOOKUP鐨勫嚱鏁板弬鏁板璇濇銆3銆佸湪VLOOKUP鐨勫嚱鏁板弬鏁板璇濇涓缃浉鍏崇殑鍙傛暟锛岀涓涓弬鏁颁负C3鑱屽伐绫诲埆锛屽悓鏃惰娉ㄦ剰C鍒楃殑鑱屽伐绫诲埆鍜孏鍒楃殑鑱屽伐绫诲埆鍙硶瑕佷竴鑷达紝鍚﹀垯涓嶅鏄撴煡鎵惧搴旂殑鏁版嵁锛屽鏋滄槸...
