Question

我正在尝试为excel构建一个vba脚本，以检查sheet2中是否存在sheet1中的值（例如：名字和姓氏），然后如果存在，则复制sheet1中的整行并将其从sheet2中的相同位置移过它发现了

我成功检查名称是否存在并且过去了但是在结束表中没有找到它

Sub test()
Dim LR As Long, i As Long
LR = Range("C" & Rows.Count).End(xlUp).Row
LR2 = ThisWorkbook.Sheets("Feuil2").Range("C" & Rows.Count).End(xlUp).Row
For i = 14 To LR
    For j = 14 To LR2
    If Range("C" & i).Value = ThisWorkbook.Sheets("Feuil2").Range("C" & j).Value Then Rows(i).Copy Destination:=Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next j
Next i
End Sub

任何想法？谢谢！

Answer 1

您还可以使用function Sound(path) { var that = this; that.buffer = null; that.path = path var request = new XMLHttpRequest(); request.open('GET', that.path, true); request.responseType = 'arraybuffer'; request.onload = function() { ac.decodeAudioData(request.response, function(buffer) { that.buffer = buffer; }); } request.send(); } Sound.prototype.play = function(a,b) { var lfo = ac.createOscillator(); lfo.frequency.value = 0.5 var lfoAmp = ac.createGain(); lfoAmp.gain.value = 1000 var gain = ac.createGain(); gain.gain.value = a; var playSound = ac.createBufferSource(); playSound.playbackRate.value = b; lfo.connect(lfoAmp); lfoAmp.connect(playSound.playbackRate); playSound.buffer = this.buffer; playSound.loop = true; playSound.connect(gain); gain.connect(ac.destination); lfo.start(0); playSound.start(0); }查找值并获取行号。

find

Excel vba copy从一个工作表到另一个工作表的行并在同一位置中将其过去

1 个答案: