求VBA高手，编写程序，可以有偿

1楼所述，vlookup就能搞定

如果强行要用vba的话，代码也不会很多的

翻译按钮

  'A列一番下

  Dim maxLine As Long

  maxLine = Cells(Rows.Count, 1).End(xlUp).Row

  

  '検索缲り返し

  Dim i As Long

  For i = 3 To maxLine

    If Trim(Cells(i, 1)) <> "" And Trim(Cells(i, 3)) = "" Then

      Dim rng

      Set rng = Sheets("翻訳).Range("A3:A" & Rows.Count).Find(What:=Trim(Cells(i, 1)), LookAt:=xlWhole)

      If Not rng Is Nothing Then

        Cells(i, 3) = Sheets("翻訳").Cells(rng.Row, 2).Value

      End If

    End If

  Next

删除按钮

    'Rows("3:" & Rows.Count).ClearContents  '内容だけで削除

    Rows("15:" & Rows.Count).Delete Shift:=xlUp  '内容と様式両方削除

MATLAB程序编写

MATLAB程序代写，主要面向基础程序、数学程序和应用程序的编写，为毕业设计、实验报告提供技术指导并解决相关问题，具体收费标准如下。

一、入门级别的MATLAB基础程序，属于MATLAB语言学习范畴。

￥100元/起（根据具体问题工作量大小协商最终价格）

二 、数学程序：程序不具有理论和实际的应用意义和价值。比如高等数学、计算方法等相关课程上的拟合插值、数值微积分、图形绘制、方程求解、简单优化等。

￥200元起（根据具体问题工作量大小协商最终价格）

三、应用程序：程序具有相应的应用背景，能够用于理论的开发和研究。比如论文毕设、算法编写、优化拟合、统计概率等。

￥300元起（根据具体问题工作量大小协商最终价格）

实行无押金预约，请将问题发送至邮箱：1736258467@qq.com，解决问题后，会通知您淘宝付款，之后会将您需要的程序发送至您的邮箱。

---