在excle中，变量ydh等于A表格B列最后一格的值，在B表格e列查找变量ydh所在的行号，请用JavaScript语表达

假设A表格的数据范围为A1:A100，B表格的数据范围为B1:E100，可以使用以下的 JavaScript 代码来实现：

// 获取 A 表格 B 列最后一格的值
var ydh = SpreadsheetApp.getActiveSheet().getRange("B100").getValue();
for (var i = 1; i <= 100; i++) {
  // 在 B 表格 E 列查找变量 ydh 所在的行号
  if (SpreadsheetApp.getActiveSheet().getRange("E" + i).getValue() == ydh) {
    var row = i;
    break;
  }
}

其中 `SpreadsheetApp.getActiveSheet()` 用于获取当前激活的工作表，`getRange()` 方法用于获取单元格的值，`getValue()` 方法用于获取单元格的值，`for` 循环用于遍历 B 表格 E 列的所有数据，`if` 判断语句用于判断当前行的 E 列是否等于 ydh 的值，如果相等，则将当前行号保存在 `row` 变量中，并且跳出循环。最终，`row` 变量保存的就是 ydh 所在的行号。

相关问题

在excle中，变量ydh等于A表格B列最后一格的值，在B表格e列查找变量ydh所在的行号，请用JavaScript语言并借用工作表函数解决

可以结合 JavaScript 和工作表函数来实现。首先，使用 JavaScript 获取 ydh 的值，然后将该值传递给工作表函数 `VLOOKUP`，根据 ydh 的值在 B 表格 E 列中查找，并返回该值所在的行号。具体代码如下：

// 获取 ydh 的值
var ydh = SpreadsheetApp.getActiveSheet().getRange("B100").getValue();

// 在 B 表格 E 列中查找 ydh，并返回该值所在的行号
var row = SpreadsheetApp.getActiveSheet().getRange("E:E").createTextFinder(ydh).findNext().getRow();

其中，`getRange("B100").getValue()` 用于获取 ydh 的值，`getRange("E:E").createTextFinder(ydh).findNext().getRow()` 用于在 B 表格 E 列中查找 ydh 并返回该值所在的行号。

另外，如果使用工作表函数 `MATCH` 实现的话，代码如下：

// 获取 ydh 的值
var ydh = SpreadsheetApp.getActiveSheet().getRange("B100").getValue();

// 在 B 表格 E 列中查找 ydh，并返回该值所在的行号
var row = SpreadsheetApp.getActiveSheet().getRange("E:E").createTextFinder(ydh).findNext().getRow();

// 通过 MATCH 函数计算 ydh 在 B 表格 E 列中所在的行号
var row = SpreadsheetApp.getActiveSheet().getRange("E:E").getRowIndex(SpreadsheetApp.getActiveSheet().getRange("E:E").getCell(row, 1)) - 1;

其中，`getRange("B100").getValue()` 用于获取 ydh 的值，`getRange("E:E").createTextFinder(ydh).findNext().getRow()` 用于在 B 表格 E 列中查找 ydh 并返回该值所在的行号，`getRowIndex()` 方法用于获取单元格在其所在列中的行号，最终得到的 `row` 即为 ydh 在 B 表格 E 列中所在的行号。

使用VBA在excle中写一个代码，将第二个表格中A，B，C列，复制到第一个表格中C，D，E列

我可以回答这个问题。以下是VBA代码：

Sub CopyData()
'设置变量
Dim wb As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lastRow As Long

'打开当前工作簿
Set wb = ActiveWorkbook

'设置需要复制数据的工作表
Set ws1 = wb.Sheets("Sheet1")
Set ws2 = wb.Sheets("Sheet2")

'获取第二个表格的最后一行
lastRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row

'从第二个表格复制数据到第一个表格
ws1.Range("C2").Resize(lastRow - 1, 3).Value = ws2.Range("A2:C" & lastRow).Value

End Sub

将此代码复制到VBA编辑器中，并执行即可将第二个表格中的A、B、C列复制到第一个表格中的C、D、E列。