一个数据处理方面的问题

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

小弟现在面临一个数据处理问题，搞了半天代码也没写对，请教坛子上的大牛们，问题如下：
如图例示，有这么个数据，index是标示每个观测样本的，然后这些样本有a1-a5个变量。我现在需要知道的是，在每个样本中，a1-a5变量里最大值是在哪一个变量中，然后将这个变量的序号放在varid中。比如第一个观测index=1的时候，a1-a5的最大值是a5=234，所以varid=5。index=2时，最大值是98，因此varid=4。index=3时，最大值是65，因此varid=2。以此类推。
现在，如何编写程序才能把varid给做出来。

实际数据比这还要复杂许多，不过我想用这个例子可以做出来的话，实际的那个数据只需稍作调整修改就可以了。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：数据处理 数据处理问题 Index 实际数据 编写程序 编写程序 最大值 标示 如何 样本

the problem has been settled

Sub getBiggest()

Dim nN As Integer
Dim ThisRange01 As Range

For nN = 1 To 100
Set ThisRange01 = Range(Cells(nN + 2, 2), Cells(nN + 2, 10))
Cells(nN + 2, 12) = MaxCol(ThisRange01)
Next nN

End Sub
--------------------------------------------------------------------------------------------------------------------------------------------
Function MaxCol(ByRef ThisRange As Range) As String
    Dim cel As Range
    For Each cel In ThisRange
               If cel = Application.WorksheetFunction.Max(ThisRange) Then MaxCol = cel.Column - 1
    Next cel
End Function

------------------------------------------------------------------------------------------------------------------------------------

You can modify the code to reflect your range.
If you have difficulty, let me know please.
Good luck.

cpamodeler 发表于 2014-4-11 02:18
Sub getBiggest()

Dim nN As Integer

my problem is with stata instead of excel, sorry my fault

dd0627 发表于 2014-4-11 10:40
my problem is with stata instead of excel, sorry my fault

Thank you buddy.
Good luck.