COBOL分析使用Excel工作表。 需要脚本来定位段落

我已经将COBOL程序复制到Excel工作表中。 我想写一个macros并分配键。 所以当我按下指定的键时，它应该做以下事情。 例如，当光标位于PERFORM 001-PARA-ADD行时，应将行值（行号2）存储在一个variables中，并只复制段名称001-PARA-ADD并添加. 在string的末尾，去掉行中的其他字符并searchstring001-PARA-ADD. 并将控件移动到string001-PARA-ADD.的第7行001-PARA-ADD. 是存在的，当我再次按下键时，它应该回到初始位置线2。

请告诉我，如果可能的话。 请让我知道是否有更多的细节需要有关的要求。

  IF A > B 345 PERFORM 001-PARA-ADD 12345 IF A < B PERFORM 002-PARA-SUB END-IF END-IF 001-PARA-ADD. COMPUTE A = A+B. . 002-PARA-SUB. COMPUTE B = BA. . 

节目的图像：

Answer 1

尝试用这些连接点：

我已经将COBOL程序复制到Excel工作表中。 我想写一个macros并分配键。 所以当我按下指定的键时，它应该做以下事情。 例如，当光标位于PERFORM 001-PARA-ADD行时，应将行值（行号2）存储在一个variables

  strValue = ActiveCell.Value Sheets("Sheet2").Range("A1") = ActiveCell.Address 'save your cell address into a scratch sheet 

并只复制段名称001-PARA-ADD

  arrayValue = Split(strValue, " ") For Each val In arrayValue If Instr(val, "PARA") > 0 Then strPara = val Goto ProcessNext End If Next ProcessNext: 

并添加。 在string的末尾

  strPara = strPara & "." 

并去除行中的其他字符

  strPara = Trim(strPara) 

并searchstring001-PARA-ADD。 并将控件移动到string001-PARA-ADD的第7行。 存在

 get the code from this link <https://stackoverflow.com/questions/11813720/search-a-string-in-a-worksheet-in-vba>! 

当我再次按下键时，它应该回到初始位置线2。

  'create another macro for this ActiveSheet.Range(Sheets("Sheet2").Range("A1").Value).Activate