cxlater 发表于 2010-11-15 16:39:38

【已解决】谁会用excel的udf 帮个忙

本帖最后由 cxlater 于 2010-11-30 21:44 编辑





这样的表格该怎么把第6行到最后一行的B列的数值给提出来或赋值给数组

nbmpe 发表于 2010-11-15 17:06:14

_ExcelReadSheetToArray($oExcel, 1, 1, 5)
用这个命令,看下帮助

nbmpe 发表于 2010-11-15 17:08:55

空行检测用这个,For $i = 1 To 10 ;Loop
    $sCellValue = _ExcelReadCell($oExcel, $i, 1)
        If $sCellValue = '' Then
                MsgBox(0, "", "为空的位置： " & @CRLF & 'A'&$i)
                ExitLoop
               
        EndIf       
Next
这只是一段参考代码,改下就可以了.

cxlater 发表于 2010-11-15 20:37:56

感谢结贴

haodd 发表于 2010-11-15 21:26:49

结贴 请改标题 已解决

h20040606 发表于 2010-11-16 07:13:13

空行检测 ，可参考以下代码
Global CONST $xlUp = -4162

$iLastRow = $oExcel.ActiveSheet.Range.Cells(65536, 1).End($xlUp).Row

左手猫头鹰 发表于 2010-11-16 08:36:39

在帮助里面搜索 “_Excel”就能看到所有Excel的UDF了

dsital 发表于 2010-11-16 09:35:09

{:face (396):}
页: [1]
查看完整版本: 【已解决】谁会用excel的udf 帮个忙