Question

我已经将文本文件中的数据转换为excel，其方式是每个单词都有自己的单元格。数据是一个列表，每个重新列表数据的标题可在E列中找到。

数据量是随机的，因为在第一个标题下可能有10个数据点，但在下一个标题下可能有30个数据点。

我的最终目标是拥有一个excel表，其中包含整齐标题下的数据。我把它们的大部分放在一起，但是我想要做的是使用一个循环来倒计数所有行，如果发现“苹果”是E列中最先前的水果类型，那么就是通过不同的相应数据片。我遇到的问题是我相信的那个词。这是我正在使用的代码。

<div class="container">


 <div class="row content">
    <div class="col-md-7 col-sm-6">
      <div class="active-iframe-wrapper video-embed-container">
          <iframe id='activeIFrame' class='active-iframe' width='100%' height='324' src="http://www.youtube.com/embed/SCRUg5s389Q?showinfo=0&modestbranding=1" ></iframe>
       </div>

      <p>Title of the video</p>
    </div>


    <div class="col-md-5 col-sm-6">

       <a class="" href="http://www.youtube.com/embed/SCRUg5s389Q?showinfo=0&modestbranding=1">
      <div class="vp-video-img-w vp-hqdefault-w">
        <img src="http://img.youtube.com/vi/SCRUg5s389Q/hqdefault.jpg" title="">                                  
      </div>
        <div class="vp-video-details">
          <h3 class="video-title">Mr. Bean is back on the road One</h3>
        </div>
      </a>


      <a class="" href="http://www.youtube.com/embed/QThP5kDUJJ0?showinfo=0&modestbranding=1">
      <div class="vp-video-img-w vp-hqdefault-w">
        <img src="http://img.youtube.com/vi/QThP5kDUJJ0/hqdefault.jpg" title="">                                  
      </div>
        <div class="vp-video-details">
          <h3 class="video-title">Mr. Bean is back on the road Two</h3>
        </div>
      </a>

      <a class="" href="http://www.youtube.com/embed/xIOP1PLjUTs?showinfo=0&modestbranding=1">
      <div class="vp-video-img-w vp-hqdefault-w">
        <img src="http://img.youtube.com/vi/xIOP1PLjUTs/hqdefault.jpg" title="">                                  
      </div>
        <div class="vp-video-details">
          <h3 class="video-title">Mr. Bean is back on the road Three</h3>
        </div>
      </a>

    </div>

  </div>

任何帮助将不胜感激

Answer 1

如果你只是想知道＆＃34; apples＆＃34;是否在某个范围内被发现：

Dim f As Range

Set f = Fruit.Range("E1:E" & i).Find(what:="apples", _
                          searchorder:=xlByRows, _
                          searchdirection:=xlPrevious)
If Not f Is Nothing Then
    'do stuff
End If

Answer 2

我并不完全明白你要做什么，但我认为这会让你解决问题（代码中的必要评论）：

Sub MyMacro()
    Dim i As Long, j As Long, lastCol As Long, lastRow As Long
    'determine last row in E column
    lastRow = Cells(Rows.Count, 5).End(xlUp).Row
    'loop thorugh E column
    For i = 1 To lastRow
        'perform case-insensitive search
        If InStr(1, LCase(Cells(i, 5).Value), "apple") > 0 Then
            'determine last column in a row
            lastCol = Cells(i, Columns.Count).End(xlToLeft).Column
            'loop through row
            For j = 6 To lastCol
                'do something with values in a row
            Next
        End If
    Next
End Sub

如果找到最先前的特定单词的语句

2 个答案: