Office中国论坛/Access中国论坛

标题: [求助]各位高人帮帮忙! [打印本页]

作者: cgl_13579 时间: 2006-5-9 01:51
标题: [求助]各位高人帮帮忙!
[attach]17623[/attach]
问题都在文件里,求各位高人帮忙,急切盼望中!!!!!!!!

作者: okmijn 时间: 2006-5-9 05:40
要先学会提问啊！１

作者: okmijn 时间: 2006-5-9 05:42
做完第一行后，向下拉就行了

作者: 萍水缘 时间: 2006-5-9 07:11

以下是引用okmijn在2006-5-8 21:42:00的发言：
做完第一行后，向下拉就行了

哈哈，你的答案很好，就是第一行怎么做呀？[em06]

作者: 浮华尽去 时间: 2006-5-10 17:25
的确是个难题呀！

作者: xingyuan5868 时间: 2006-6-2 02:23
还不是一般的难题！[em03]

作者: zldccmx 时间: 2006-7-19 22:34
利用VBA来实现，是比较容易的。

Private Sub Worksheet_Activate()
Dim le, ri, i, j As Integer
For i = 3 To 13 '假定是11行，如果希望是万用的，那就使用另外一个函数来判断A列有多少行，在此就不提了
For j = 2 To 256 '每行最多256列
If Sheet1.Cells(i, j) <> "" Then
le = j '找出左边（left)第一个数的列号
Exit For
End If
Next j
For j = 256 To 2 Step -1 '每行最多256列
If Sheet1.Cells(i, j) <> "" Then
ri = j '找出右边（right)第一个数的列号
Exit For
End If
Next j
If le <> ri Then
Sheet1.Cells(i, 1) = Sheet1.Cells(i, le) - Sheet1.Cells(i, ri) '这是直接计算,当然也可以用写入公式法，不过你如果只要结果的话这样最方便了！
Else
Sheet1.Cells(i, 1) = Sheet1.Cells(i, le)　'如果　le =ri ，说明当前行只有一个数据，那么就不计算
End If
Next i
End Sub

[此贴子已经被作者于2006-7-19 14:38:33编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)